Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  712 1769 (N31E44 L=315)   389     50        1 ( 682/1739- 739/1785)   0.0 E47-E41 N29-N32
      2  829 1629 (N24E28 L=332)   361    113        0 ( 805/1581- 863/1678) -81.9 E28-E25 N20-N27
      3  699 1592 (N19E34 L=325)   480    133        2 ( 637/1569- 771/1609)   5.7 E39-E29 N17-N19
      4 1649 1558 (N43W32 L= 32)   334     34        1 (1625/1543-1668/1580)  38.7 W29-W34 N41-N45
      5 1430 1431 (N26W15 L= 14)   337    116        0 (1397/1385-1478/1461)  56.3 W13-W18 N22-N29
      6  779 1305 (N03E20 L=339)   656    278        1 ( 646/1276- 899/1350)  26.6 E28-E14 N00-N08
      7 1487 1265 (N18W22 L= 21)   270    135        0 (1457/1241-1546/1313)  -8.1 W18-W25 N16-N19
      8  188 1216 (S11E64 L=296)   479    101        1 ( 173/1165- 208/1261)  90.0 E65-E61 S14-S08
      9 1732 1063 (N13W43 L= 42)   535    127        1 (1718/ 991-1746/1125) -76.0 W41-W44 N08-N16
     10 1348 1004 (S01W19 L= 18)   233     57        0 (1319/ 986-1390/1025)  11.3 W16-W21 S01-N00
     11 1009  716 (S25W07 L=  6)   217     39        0 ( 988/ 699-1036/ 739) -18.4 W05-W08 S25-S23
     12 1356  587 (S23W32 L= 31)  1845    517        3 (1143/ 530-1596/ 665)  34.2 W20-W46 S31-S12
     13 1708  537 (S15W61 L= 61)   810     97        1 (1659/ 519-1757/ 563)  15.3 W56-W67 S17-S12
     14  969  343 (S49W19 L= 18)   636    101        2 ( 921/ 315-1021/ 367)  12.5 W14-W23 S51-S46
     15 1322  265 (S42W52 L= 51)   548     80        3 (1300/ 225-1345/ 305) -17.1 W46-W59 S44-S40
  

    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