Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  582 1731 (N24E53 L=303)   673    187        1 ( 533/1704- 627/1758)  -5.2 E59-E48 N22-N24
      2 1183 1188 (N07W04 L=  0)   354    112        0 (1142/1139-1210/1250)  90.0 W02-W05 N03-N11
      3  299 1169 (S16E51 L=305)   481     74        0 ( 284/1125- 313/1214) -68.2 E52-E48 S18-S13
      4  768 1144 (S06E17 L=339)   224     49        1 ( 741/1118- 797/1165)  56.3 E18-E15 S08-S04
      5 1809 1073 (N21W49 L= 45)  1114    225        1 (1752/ 963-1855/1147) -28.3 W42-W56 N16-N23
      6  287 1057 (S23E49 L=307)   856    254        0 ( 219/1034- 372/1093)  12.1 E56-E42 S24-S18
      7 1478  863 (S02W30 L= 27)   225     89        0 (1466/ 820-1497/ 914) -36.9 W27-W32 S03-N00
      8  931  744 (S24W03 L=359)   402     83        0 ( 879/ 723- 978/ 771)  45.0 W00-W05 S26-S21
      9 1677  668 (S05W52 L= 48)   398     87        0 (1635/ 650-1717/ 687)  33.7 W48-W55 S07-S03
     10  904  618 (S32W05 L=  2)   684    195        1 ( 819/ 581- 997/ 674)   0.0 E01-W12 S34-S30
     11 1159  513 (S30W25 L= 21)   460    104        2 (1119/ 487-1206/ 546)   0.0 W21-W28 S31-S28
     12 1710  473 (S14W67 L= 63)   853    117        2 (1670/ 437-1741/ 521)  80.5 W64-W70 S16-S10
     13 1288  308 (S38W46 L= 42)   481    103        1 (1238/ 292-1340/ 327)  33.7 W42-W48 S39-S35
  

    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