Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1486 1432 (N33W18 L=123)   553    117        1 (1447/1385-1520/1473) -33.7 W14-W21 N30-N35
      2  759 1197 (S02E19 L= 85)   619    143        2 ( 702/1163- 823/1241)   0.0 E23-E14 S03-N00
      3 1794 1189 (N28W49 L=154)  1391    217        0 (1729/1098-1845/1241) -21.0 W41-W56 N23-N30
      4 1655 1132 (N19W36 L=141)   794    211        0 (1579/1047-1704/1216)  61.7 W32-W39 N12-N25
      5 1895  980 (N19W66 L=170)   951    120        2 (1861/ 919-1918/1023) -50.2 W59-W71 N15-N21
      6  287  817 (S35E49 L= 56)  2929    305        5 ( 215/ 717- 354/ 956)  45.0 E62-E41 S43-S25
      7 1216  927 (S05W13 L=118)   346     80        2 (1174/ 900-1254/ 955)  26.6 W11-W15 S06-S03
      8 1799  717 (N01W63 L=167)   829    135        0 (1767/ 660-1823/ 785) -74.1 W60-W64 S02-N05
      9 1243  675 (S18W23 L=128)   624    206        0 (1160/ 641-1312/ 742)  53.1 W17-W24 S20-S12
     10 1664  660 (S06W52 L=157)  1120    178        1 (1637/ 586-1710/ 737) -24.8 W47-W60 S09-S02
     11 1342  646 (S17W30 L=135)   441    153        1 (1276/ 612-1408/ 675)  49.4 W26-W33 S20-S13
     12  926  629 (S30W06 L=110)   230     52        0 ( 897/ 612- 958/ 644)  53.1 W04-W07 S31-S27
     13 1537  566 (S15W47 L=151)   358     97        1 (1493/ 542-1580/ 589)  51.3 W43-W49 S17-S12
     14  820  543 (S38W02 L=106)   315     44        2 ( 793/ 522- 848/ 564)  18.4 W00-W03 S40-S36
  

    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