Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1679 1430 (N26W54 L=346)   873    150        0 (1633/1364-1720/1493) -77.5 W51-W56 N21-N30
      2 1099 1417 (N29W07 L=299)   539    147        1 (1063/1354-1125/1486)  77.5 W04-W09 N24-N33
      3  279 1416 (N30E63 L=229)   607    119        0 ( 244/1370- 327/1452)  40.6 E67-E58 N26-N32
      4  288 1341 (N25E58 L=234)   492     75        1 ( 268/1305- 311/1374)  68.2 E60-E56 N22-N27
      5 1184 1326 (N23W12 L=304)   494    109        2 (1135/1305-1235/1348) -26.6 W08-W15 N20-N24
      6  365 1128 (N12E46 L=246)   474    177        1 ( 339/1061- 416/1178)  76.0 E48-E41 N07-N15
      7 1747  855 (S10W51 L=343)   600     58        0 (1723/ 827-1772/ 881)  33.7 W48-W53 S12-S08
      8 1050  809 (S09W01 L=293)   406     97        2 (1025/ 769-1077/ 856) -68.2 W00-W02 S11-S05
      9  863  793 (S09E11 L=281)   427     93        1 ( 838/ 750- 887/ 838) -90.0 E12-E09 S12-S06
     10 1320  740 (S15W18 L=310)   263     86        0 (1295/ 706-1333/ 782)  63.4 W16-W18 S16-S11
     11  492  651 (S18E39 L=253)   303     91        0 ( 456/ 638- 536/ 665)   8.1 E41-E34 S18-S17
     12 1685  607 (S26W50 L=342)   846    127        2 (1659/ 576-1727/ 656) -40.6 W46-W54 S28-S22
     13 1684  495 (S35W56 L=348)   457     63        0 (1654/ 480-1710/ 514)   0.0 W51-W59 S36-S33
  

    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