Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1013 1933 (N65W55 L= 33)   720     99        1 ( 988/1906-1040/1961)   8.4 W44-W71 N61-N67
      2 1416 1748 (N35W55 L= 33)   435     73        0 (1376/1726-1450/1766) -53.1 W52-W57 N33-N37
      3 1601 1657 (N24W63 L= 41)  1118    147        3 (1521/1635-1665/1676) -21.0 W55-W70 N21-N27
      4 1222 1580 (N31W28 L=  7)   413    135        0 (1147/1553-1276/1598) -40.6 W23-W31 N27-N33
      5 1482 1573 (N23W46 L= 24)   468    165        0 (1401/1563-1564/1584) -22.6 W39-W52 N20-N25
      6 1455 1519 (N21W41 L= 19)   277     63        0 (1422/1502-1492/1538) -36.9 W38-W43 N19-N22
      7  688 1199 (N21E16 L=322)   243     89        1 ( 661/1158- 717/1238) -71.6 E17-E14 N17-N23
      8 1816 1111 (S11W55 L= 33)   540     88        1 (1777/1089-1858/1139) -32.0 W51-W59 S13-S08
      9  426  976 (N14E38 L=300)   341    112        0 ( 409/ 923- 443/1031)  63.4 E39-E35 N10-N16
     10  486  986 (N13E33 L=305)   224     59        0 ( 472/ 958- 497/1022)  56.3 E34-E32 N11-N14
     11 1586  577 (S38W28 L=  6)   987    280        2 (1492/ 495-1682/ 678)  22.4 W19-W37 S41-S33
     12  464  343 (S25E64 L=275)  2025    177        7 ( 414/ 294- 527/ 393) -58.0 E72-E56 S29-S21
     13  553  273 (S31E62 L=276)  1598    153        1 ( 530/ 201- 580/ 340)  19.7 E80-E52 S37-S27
     14  726  309 (S33E43 L=296)   799    113        2 ( 678/ 279- 777/ 336) -51.3 E45-E39 S35-S30
     15  784  211 (S42E48 L=290)   606     89        2 ( 771/ 171- 813/ 257)  38.7 E53-E42 S45-S37
  

    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