Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1060 1522 (N36W16 L=296)  1255    336        1 ( 927/1491-1219/1546) -18.4 W05-W26 N31-N39
      2 1400 1519 (N26W38 L=319)   557    123        1 (1328/1498-1456/1535) -26.6 W33-W42 N24-N28
      3 1505 1440 (N19W42 L=322)   390     84        0 (1478/1412-1541/1472) -78.7 W39-W43 N16-N21
      4 1893 1273 (S02W73 L=354)   711     70        2 (1881/1239-1910/1309)  36.9 W70-W77 S03-N00
      5 1846 1196 (S04W62 L=343)  1531    192        6 (1797/1131-1897/1260) -56.3 W57-W69 S09-N00
      6 1222 1178 (N12W15 L=296)   206    124        0 (1169/1148-1263/1205) -56.3 W12-W16 N08-N14
      7  812 1080 (N15E11 L=269)   860    225        3 ( 782/ 955- 844/1171)  81.9 E13-E08 N06-N20
      8  331 1042 (N21E47 L=233)   790    142        0 ( 293/ 988- 391/1095) -45.0 E50-E42 N16-N24
      9 1650 1074 (S05W40 L=321)   276     78        0 (1628/1045-1673/1094) -63.4 W38-W41 S07-S03
     10  331  864 (N10E50 L=231)   286     89        0 ( 305/ 823- 349/ 902) -68.2 E51-E48 N07-N12
     11 1767  790 (S26W46 L=327)  1380    250        3 (1688/ 685-1820/ 885)  29.7 W38-W52 S31-S21
     12  424  710 (S00E45 L=235)  1234    256        1 ( 380/ 607- 512/ 772)  23.2 E52-E38 S06-N03
     13  352  523 (S11E61 L=220)  7145    388       19 ( 240/ 387- 448/ 641)  55.6 E73-E52 S21-S02
     14 1295  399 (S39W03 L=283)   340     57        0 (1271/ 369-1318/ 426)  36.9 W00-W05 S40-S37
  

    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