Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1011 1668 (N48W01 L=172)   290     78        0 ( 991/1631-1028/1699) -80.5 W00-W02 N44-N50
      2  528 1314 (N22E34 L=137)   605    172        4 ( 503/1233- 553/1394) -78.7 E36-E32 N17-N27
      3 1735 1300 (N18W53 L=224)  1362    206        2 (1679/1245-1799/1350) -37.9 W48-W58 N14-N21
      4 1812  914 (S06W58 L=228)   948    139        4 (1788/ 855-1835/ 969) -82.9 W54-W60 S10-S02
      5 1865  852 (S11W65 L=236)  2099    194        3 (1823/ 775-1897/ 940)  59.0 W59-W69 S15-S05
      6 1567  720 (S17W36 L=207)   363    124        0 (1525/ 680-1603/ 758) -39.8 W32-W39 S19-S14
      7 1800  664 (S23W60 L=231)   572     93        1 (1771/ 640-1824/ 691)  18.4 W56-W62 S24-S21
      8  775  432 (S35E21 L=150)   355     88        0 ( 742/ 407- 807/ 458)  33.7 E23-E17 S36-S32
  

    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