Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  922 1663 (N31E26 L=264)  1191    226        2 ( 843/1576-1001/1717) -12.1 E31-E17 N27-N34
      2  564 1543 (N14E43 L=246)   389     84        2 ( 542/1507- 584/1581) -26.6 E46-E40 N12-N17
      3  974 1457 (N19E14 L=275)   952    203        2 ( 942/1346-1017/1548) -72.9 E17-E11 N12-N25
      4  525 1435 (N07E41 L=248)   263     44        1 ( 505/1415- 543/1463)  90.0 E42-E39 N05-N09
      5 1794 1197 (N27W48 L=338)  3573    584        4 (1679/1065-1926/1361) -37.9 W35-W69 N19-N34
      6  323 1031 (S20E46 L=244)   526    132        0 ( 301/ 989- 368/1085) -51.3 E48-E41 S22-S16
      7 1500  972 (N05W29 L=319)   760    189        0 (1439/ 909-1536/1067)  79.7 W26-W30 N00-N11
      8  597  985 (S17E24 L=266)   215     92        0 ( 550/ 969- 629/1012)  38.7 E27-E22 S18-S14
      9 1905  931 (N15W67 L=357)  2206    171        3 (1863/ 878-1950/ 991)  58.0 W60-W78 N11-N19
     10 1852  709 (N02W69 L=359)  1073     94        2 (1798/ 684-1903/ 733)   8.1 W60-W81 N00-N03
     11  949  641 (S28W06 L=296)   480    143        0 ( 884/ 614-1013/ 659)  40.6 W02-W09 S31-S25
     12  391  562 (S49E39 L=251)  2003    248        4 ( 296/ 489- 492/ 636) -11.8 E50-E26 S53-S45
     13 1604  535 (S15W53 L=343)  1333    305        1 (1466/ 493-1718/ 568)  31.4 W44-W62 S21-S10
     14 1171  257 (S46W42 L=332)   345     42        1 (1152/ 232-1188/ 281) -15.9 W38-W45 S47-S43
     15 1339  202 (S43W64 L=354)  2161    160        3 (1280/ 159-1408/ 267)  -2.0 W50-W80 S44-S39
  

    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