Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  714 1598 (N28E27 L=129)   718    273        0 ( 659/1555- 815/1677)   0.0 E31-E20 N25-N33
      2 1706 1393 (N25W45 L=201)  1114    173        3 (1636/1337-1764/1458) -31.0 W39-W50 N21-N28
      3  301 1373 (N11E54 L=102)   488     97        1 ( 276/1323- 325/1420)  90.0 E55-E52 N08-N14
      4 1307 1322 (N15W15 L=171)   358     90        1 (1273/1286-1333/1364)  78.7 W12-W16 N12-N17
      5 1099 1211 (N06W03 L=159)  1102    388        2 ( 961/1072-1174/1335) -45.0 E06-W07 S01-N12
      6  542 1134 (S02E31 L=125)   450    143        1 ( 487/1090- 607/1164) -12.5 E34-E25 S04-N00
      7  126 1064 (S07E69 L= 87)   528     55        2 ( 108/1034- 141/1090)  90.0 E72-E66 S09-S05
      8  836  971 (S10E11 L=145)   229    113        0 ( 789/ 940- 883/1004)  38.7 E13-E08 S12-S07
      9  126  868 (S19E71 L= 85)  1264    127        2 ( 102/ 818- 147/ 930)  33.7 E77-E67 S21-S15
     10 1395  891 (S09W24 L=180)   256     45        1 (1377/ 855-1411/ 917) -45.0 W22-W25 S11-S07
     11 1025  791 (S19W02 L=158)  1017    476        0 ( 834/ 724-1219/ 858)  15.3 E09-W13 S23-S13
     12 1254  761 (S19W17 L=173)   490    278        1 (1128/ 724-1384/ 793)  21.8 W09-W24 S21-S15
     13  409  671 (S31E42 L=114)   341     71        0 ( 369/ 646- 449/ 699)  20.6 E46-E38 S32-S28
     14 1405  467 (S35W35 L=191)   727    141        1 (1332/ 446-1482/ 490)   4.1 W28-W42 S36-S34
     15 1402  367 (S42W41 L=197)   660    124        2 (1366/ 332-1464/ 414)  -9.5 W36-W48 S44-S38
  

    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