Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  569 1668 (N34E40 L=130)  1301    282        2 ( 504/1609- 637/1731) -25.2 E49-E32 N29-N39
      2 1750 1385 (N25W49 L=220)   911    180        3 (1692/1361-1798/1415)  16.7 W44-W54 N22-N26
      3  536 1253 (N06E32 L=138)   461    101        2 ( 510/1203- 569/1308) -74.1 E34-E29 N02-N09
      4  115 1261 (N07E77 L= 93)   990    124        1 ( 100/1237- 134/1295)  56.3 E81-E73 N05-N08
      5  890 1118 (S00E09 L=162)   184     74        0 ( 848/1088- 917/1144) -11.3 E11-E06 S01-N01
      6  126 1007 (S09E69 L=101)   572    116        1 (  98/ 988- 147/1028) -14.0 E74-E65 S10-S07
      7 1451  890 (S09W28 L=198)   454    115        2 (1425/ 826-1478/ 944)  82.9 W26-W29 S13-S05
      8 1789  917 (S04W54 L=224)   458    163        0 (1733/ 888-1837/ 933)  15.3 W48-W59 S06-S02
      9  943  815 (S18E03 L=167)   304     88        2 ( 907/ 776- 981/ 871) -63.4 E05-W00 S20-S14
     10 1800  794 (S11W57 L=228)   729    133        2 (1762/ 751-1823/ 862)  60.3 W54-W60 S13-S06
     11  562  778 (S23E29 L=142)   482    179        1 ( 506/ 716- 628/ 811)  33.7 E33-E23 S26-S20
     12  245  744 (S26E56 L=115)   479    110        1 ( 212/ 727- 277/ 765)   0.0 E59-E52 S26-S24
     13 1217  627 (S27W16 L=187)   222     40        1 (1192/ 605-1243/ 648)  56.3 W14-W17 S29-S26
     14 1807  573 (S23W66 L=236)   636     85        0 (1775/ 539-1840/ 607)  38.7 W62-W68 S25-S20
     15 1558  398 (S39W50 L=221)  1202    318        3 (1436/ 362-1676/ 441)  27.9 W41-W58 S42-S33
  

    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