Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  511 1676 (N25E55 L=177)   666    191        0 ( 481/1621- 535/1713) -36.9 E60-E51 N21-N27
      2 1429 1331 (N25W18 L=250)   432     62        2 (1398/1290-1459/1369) -31.0 W15-W20 N22-N26
      3 1018 1217 (N08E05 L=227)   333     79        1 ( 981/1171-1044/1239) -36.9 E07-E02 N05-N09
      4  456 1101 (S11E37 L=195)   985    156        1 ( 424/1028- 480/1187) -78.7 E39-E34 S15-S05
      5 1583 1008 (N09W35 L=267)   229     46        0 (1563/ 984-1600/1031) -33.7 W32-W36 N08-N10
      6  423  851 (S26E36 L=196)   500    183        1 ( 360/ 810- 458/ 922)  53.1 E40-E33 S29-S21
      7  942  875 (S13E01 L=231)   342    114        2 ( 909/ 850- 980/ 902)  45.0 E03-W00 S14-S11
      8 1698  638 (S08W56 L=288)   413     77        1 (1678/ 617-1727/ 665)  26.6 W53-W58 S10-S07
      9 1528  607 (S15W43 L=275)   654    106        1 (1479/ 582-1573/ 633)  38.7 W39-W45 S16-S11
     10  910  597 (S31W04 L=236)   276     51        2 ( 879/ 575- 935/ 623) -14.0 W01-W05 S32-S28
     11 1395  416 (S29W43 L=275)   518     67        1 (1369/ 393-1429/ 445)   0.0 W39-W45 S31-S27
     12 1202  349 (S39W34 L=266)   304     75        0 (1172/ 323-1227/ 368)  -9.5 W31-W37 S40-S37
     13 1181  272 (S45W38 L=270)   971    134        2 (1151/ 232-1214/ 311) -21.8 W33-W43 S49-S42
  

    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