Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  695 1647 (N21E40 L= 80)   557    163        0 ( 669/1574- 731/1704) -66.0 E41-E35 N16-N25
      2  463 1669 (N17E59 L= 61)   487     91        1 ( 429/1633- 489/1702) -78.7 E61-E57 N14-N19
      3 1057 1619 (N29E16 L=103)   485    155        1 (1026/1563-1085/1676) -41.2 E20-E12 N25-N32
      4  837 1539 (N17E26 L= 94)   928    286        0 ( 746/1430- 887/1626) -31.6 E34-E21 N10-N22
      5  318 1439 (N00E60 L= 60)   990    241        2 ( 256/1393- 360/1470)  -3.6 E69-E53 S02-N01
      6  600 1321 (S01E33 L= 87)   255     67        0 ( 576/1294- 630/1353) -11.3 E35-E30 S01-N00
      7  641 1215 (S06E27 L= 93)   354     93        0 ( 610/1160- 671/1259)  90.0 E27-E25 S09-S03
      8  221 1086 (S22E56 L= 64)  1887    265        5 ( 190/ 964- 266/1202)  86.2 E59-E53 S29-S14
      9 1378 1106 (N08W17 L=137)   620    204        2 (1299/1081-1468/1139)  20.0 W12-W23 N05-N09
     10 1376 1060 (N05W18 L=138)   203     66        1 (1342/1032-1402/1089)   0.0 W15-W20 N03-N06
     11  429 1045 (S20E37 L= 83)   254     90        0 ( 409/1002- 443/1088)  90.0 E38-E36 S23-S17
     12  654 1016 (S17E21 L= 99)   402    128        0 ( 602/ 953- 696/1051) -20.6 E25-E17 S19-S15
     13 1588  973 (N07W34 L=154)   461    134        0 (1522/ 930-1636/1013)  53.1 W30-W36 N02-N10
     14  740  914 (S20E13 L=106)   494    154        2 ( 666/ 860- 811/ 966)  59.0 E16-E10 S25-S15
     15  161  913 (S34E60 L= 60)  1036    239        3 ( 119/ 880- 208/ 948)  21.8 E64-E54 S35-S30
     16 1465  803 (S06W31 L=151)   220     69        1 (1433/ 772-1494/ 829)  68.2 W30-W32 S08-S03
     17 1828  771 (N05W62 L=182)   402    108        1 (1796/ 752-1859/ 787)  20.6 W57-W65 N03-N06
     18 1721  712 (S02W54 L=173)   412     84        0 (1680/ 698-1752/ 726)  14.0 W49-W57 S03-N00
     19 1157  573 (S28W22 L=142)   370     65        1 (1132/ 543-1190/ 604)  76.0 W20-W23 S29-S25
     20 1044  541 (S33W17 L=137)   404     72        3 (1010/ 523-1086/ 568)  21.8 W14-W19 S34-S31
     21 1605  470 (S18W57 L=177)   741    180        2 (1544/ 439-1655/ 491)  24.0 W51-W62 S21-S15
     22 1707  429 (S16W71 L=190)  1975    226        4 (1657/ 395-1752/ 474)  60.3 W64-W76 S19-S12
     23 1211  275 (S43W44 L=163)   569     74        1 (1182/ 252-1240/ 307)  21.8 W41-W46 S44-S40
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y