Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1160 1790 (N56E01 L= 93)  1380    294        1 (1032/1759-1302/1825)  -1.9 E16-W14 N54-N57
      2  483 1605 (N30E52 L= 42)  2209    221        4 ( 398/1518- 577/1669)  28.3 E60-E41 N24-N35
      3 1227 1570 (N38W07 L=102)   742    185        0 (1136/1553-1309/1588)   8.7 W00-W13 N36-N40
      4  284 1515 (N21E70 L= 25)  1478    127        4 ( 251/1458- 311/1568) -82.9 E76-E65 N17-N25
      5  389 1454 (N19E52 L= 42)   613    106        1 ( 368/1403- 411/1504) -60.3 E55-E49 N15-N22
      6 1756 1344 (N29W53 L=147)  4008    394        7 (1560/1279-1913/1411)  -5.0 W33-W80 N25-N31
      7  262 1329 (N10E60 L= 34)   409     83        0 ( 249/1285- 278/1369) -78.7 E61-E58 N07-N12
      8  191 1228 (N03E66 L= 28)  1214    158        0 ( 144/1155- 220/1269) -24.4 E74-E60 S01-N05
      9  787 1037 (S01E14 L= 80)   612    207        1 ( 767/ 942- 808/1135) -78.7 E16-E12 S06-N04
     10 1351 1095 (N09W19 L=113)   377    133        0 (1301/1069-1402/1117)   9.5 W16-W22 N06-N10
     11  480  991 (S08E34 L= 60)   831    286        1 ( 426/ 872- 546/1109)  75.1 E38-E30 S15-N00
     12 1087 1000 (S00W04 L= 98)   592    175        2 (1034/ 941-1122/1078)  69.4 W01-W05 S04-N04
     13 1341  658 (S18W25 L=119)   475    210        0 (1256/ 629-1405/ 712)  18.4 W19-W28 S20-S13
     14 1411  553 (S24W33 L=127)   614    151        1 (1349/ 523-1480/ 595)  40.6 W29-W36 S26-S20
     15 1140  385 (S39W19 L=113)   647     75        2 (1097/ 364-1182/ 416)  38.7 W15-W21 S41-S36
  

    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