Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1176 1557 (N30W14 L=132)  1469    338        0 (1043/1461-1296/1645) -40.9 W05-W21 N23-N37
      2 1432 1585 (N31W34 L=152)   752    174        0 (1360/1530-1511/1632) -41.6 W29-W38 N26-N34
      3  833 1577 (N34E10 L=108)   280     18        0 ( 809/1560- 859/1597)  14.0 E11-E07 N33-N35
      4  525 1466 (N29E33 L= 85)   491    148        0 ( 462/1428- 585/1494)  24.0 E37-E28 N26-N30
      5  420 1357 (N22E40 L= 78)   911    152        2 ( 389/1305- 477/1420) -53.1 E42-E34 N18-N26
      6  892 1383 (N21E06 L=112)   306     55        1 ( 859/1363- 921/1409)   0.0 E08-E04 N19-N22
      7  172 1350 (N24E69 L= 48)  1810    102        4 ( 137/1298- 201/1399)  71.6 E75-E64 N21-N27
      8  862 1326 (N17E08 L=110)   238     89        2 ( 823/1304- 891/1359)  26.6 E10-E06 N16-N19
      9 1831 1144 (N01W58 L=176)  1339    148        3 (1756/1100-1892/1173) -12.1 W50-W65 S01-N03
     10  935  784 (S16E07 L=111)   192     98        0 ( 919/ 735- 958/ 824)  68.2 E08-E05 S18-S13
     11 1682  600 (S32W49 L=166)  3793    565        3 (1499/ 441-1889/ 760)  27.2 W35-W71 S42-S21
     12  838  628 (S25E15 L=103)   637    179        0 ( 814/ 559- 895/ 708) -78.7 E16-E11 S29-S19
     13 1387  470 (S39W24 L=142)   676    125        1 (1351/ 413-1418/ 519) -53.1 W21-W28 S43-S35
     14 1392  253 (S58W35 L=153)   396     38        1 (1372/ 240-1418/ 273) -18.4 W31-W40 S59-S56
  

    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