Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  436 1647 (N36E62 L= 65)   895    116        1 ( 394/1607- 482/1684)  56.3 E64-E58 N32-N38
      2 1065 1605 (N40E03 L=124)   711    144        2 ( 992/1553-1116/1643) -12.5 E09-W00 N36-N42
      3  606 1490 (N27E35 L= 92)  1172    168        6 ( 547/1421- 662/1556) -30.3 E41-E28 N22-N30
      4  873 1379 (N22E13 L=114)   305    134        0 ( 833/1326- 904/1432)  74.1 E15-E11 N18-N25
      5 1185 1375 (N25W07 L=134)   292     68        2 (1166/1337-1201/1414) -78.7 W06-W08 N22-N27
      6  162 1055 (S05E67 L= 60)  3042    281       10 ( 107/ 970- 210/1116) -36.0 E78-E59 S09-N00
      7  770  735 (S18E14 L=113)  2744    688        5 ( 518/ 565- 976/ 960)  44.1 E33-E02 S32-S02
      8  211  877 (S15E60 L= 67)   839    135        6 ( 177/ 842- 244/ 927)  45.0 E65-E55 S17-S11
      9 1652  742 (S11W46 L=173)   407     77        1 (1634/ 701-1667/ 787)  90.0 W44-W47 S13-S07
     10 1462  757 (S11W31 L=158)   260     64        1 (1438/ 727-1488/ 783)  76.0 W29-W32 S13-S09
     11 1781  684 (S14W61 L=188)   724    113        2 (1733/ 655-1832/ 711)  -3.8 W54-W69 S15-S11
     12 1487  611 (S20W36 L=163)   255     78        1 (1460/ 586-1526/ 642)  45.0 W34-W38 S21-S17
     13 1627  478 (S28W55 L=182)  2203    471        1 (1461/ 394-1781/ 634)  43.5 W41-W64 S35-S16
     14  348  487 (S41E57 L= 70)  1574    166        0 ( 304/ 430- 410/ 537)  16.6 E82-E45 S47-S36
     15  547  325 (S53E42 L= 85)   528     55        1 ( 525/ 303- 579/ 348)  20.0 E47-E36 S55-S50
  

    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