Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  518 1671 (N25E54 L=177)   693    184        0 ( 486/1616- 541/1711) -49.4 E59-E51 N20-N27
      2 1148 1351 (N19E00 L=231)   415    132        1 (1135/1280-1163/1416) -83.7 E02-W01 N14-N23
      3 1442 1328 (N25W19 L=250)   361     53        0 (1411/1295-1470/1362) -31.0 W16-W21 N23-N26
      4 1056 1176 (N07E02 L=230)   508    192        0 ( 999/1083-1101/1234) -40.6 E05-W02 N02-N09
      5 1582 1027 (N10W34 L=265)   464    114        0 (1548/ 980-1611/1097) -39.8 W30-W36 N08-N13
      6  428  847 (S26E35 L=196)   509    194        0 ( 365/ 808- 469/ 920)  53.1 E40-E32 S29-S21
      7  963  871 (S13E00 L=231)   320    114       -1 ( 932/ 847-1008/ 892)  53.1 E02-W02 S14-S10
      8  806  865 (S17E09 L=222)   204     63        0 ( 768/ 842- 835/ 886) -14.0 E11-E07 S17-S15
      9 1704  634 (S08W57 L=288)   381     72        1 (1685/ 613-1732/ 659)  36.9 W54-W59 S10-S07
     10 1542  606 (S14W44 L=275)   710    118        2 (1494/ 579-1594/ 638)  45.0 W40-W47 S16-S11
     11  914  591 (S31W04 L=235)   280     60        2 ( 890/ 566- 949/ 615) -14.0 W02-W06 S32-S29
     12 1405  412 (S29W44 L=275)   551     80        1 (1373/ 389-1440/ 442)  36.9 W40-W46 S31-S27
     13 1217  339 (S40W36 L=267)   335     66        0 (1199/ 314-1242/ 366)  -9.5 W32-W38 S41-S37
     14 1181  266 (S46W39 L=270)  1001    148        4 (1129/ 222-1222/ 313) -82.9 W35-W42 S50-S41
  

    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