Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  728 1694 (N38E29 L=355)  2148    314        4 ( 569/1637- 860/1737)  -9.8 E45-E16 N33-N40
      2 1290 1649 (N38W15 L= 39)   313     83        0 (1250/1636-1331/1667) -18.4 W12-W18 N37-N39
      3 1263 1541 (N30W13 L= 37)   289     91        0 (1215/1513-1301/1573) -26.6 W09-W15 N27-N31
      4 1076 1371 (N17W01 L= 25)   904    231        1 (1018/1274-1124/1461)  76.0 E02-W03 N10-N22
      5  271 1336 (N12E56 L=327)   337     47        0 ( 253/1310- 292/1365) -31.0 E58-E53 N09-N13
      6 1280 1291 (N13W14 L= 38)   564    234        1 (1176/1239-1383/1339) -17.1 W07-W20 N10-N15
      7  397 1304 (N10E44 L=340)   264     40        1 ( 380/1278- 423/1326)  18.4 E44-E41 N07-N10
      8  488 1276 (N08E36 L=348)   301    125        1 ( 454/1245- 549/1293)  15.9 E38-E31 N06-N09
      9  297 1174 (N01E50 L=333)   461    105        0 ( 258/1137- 334/1211)  26.6 E53-E47 N00-N03
     10  552 1115 (S01E30 L=354)   376     94        0 ( 510/1078- 597/1153)  31.0 E32-E27 S03-N00
     11  267 1006 (S09E52 L=331)   692     93        0 ( 250/ 948- 293/1054)  63.4 E54-E49 S11-S05
     12  192  959 (S11E61 L=323)   431     65        2 ( 175/ 928- 209/ 993)  76.0 E63-E58 S13-S09
     13 1307  972 (S06W17 L= 41)   186     19        1 (1287/ 951-1325/ 991)  63.4 W16-W18 S07-S04
     14  157  908 (S14E66 L=317)  1048    130        4 ( 124/ 872- 212/ 963) -29.1 E71-E59 S16-S10
     15  894  845 (S16E07 L= 17)   335    177        0 ( 813/ 820- 979/ 866)  11.3 E11-E01 S17-S14
     16  225  629 (S32E68 L=316)  3020    220        1 ( 195/ 530- 263/ 738)  35.8 E83-E63 S37-S24
     17 1840  672 (S18W68 L= 92)   682    139        3 (1815/ 633-1869/ 734)  74.1 W65-W71 S20-S13
     18 1756  647 (S21W59 L= 82)  1588    173        2 (1719/ 558-1810/ 701)  78.7 W54-W63 S26-S16
     19 1652  617 (S24W49 L= 73)   714    166        1 (1605/ 537-1696/ 681) -38.7 W43-W53 S28-S20
  

    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