Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  514 1502 (N10E44 L=280)  2949    411        3 ( 458/1272- 596/1705) -66.0 E49-E34 S03-N24
      2 1765 1471 (N42W44 L=  8)   498     87        1 (1743/1443-1790/1492)  45.0 W41-W47 N39-N44
      3 1652 1395 (N32W32 L=356)   366     67        1 (1617/1374-1681/1411)  11.3 W29-W34 N30-N32
      4 1306 1305 (N15W10 L=334)   476    128        0 (1275/1236-1334/1373) -45.0 W06-W12 N11-N18
      5  199 1190 (S13E62 L=262)  2476    501        3 ( 126/1146- 314/1269)  -2.4 E73-E49 S15-S08
      6 1719  977 (N08W44 L=  8)   413     73        0 (1699/ 937-1737/1021) -45.0 W41-W46 N05-N10
      7  711  929 (S20E16 L=308)   264     80        1 ( 672/ 907- 759/ 942)  21.8 E18-E13 S21-S18
      8 1284  842 (S11W19 L=343)   224     65        0 (1260/ 813-1315/ 875) -26.6 W17-W21 S12-S09
      9 1435  709 (S14W32 L=356)   569    122        0 (1373/ 664-1499/ 765)  66.0 W30-W35 S18-S09
     10 1705  600 (S12W57 L= 21)   435     98        1 (1686/ 566-1720/ 628) -31.0 W54-W59 S13-S10
     11 1664  572 (S15W55 L= 19)   592    154        1 (1639/ 522-1696/ 622) -59.0 W51-W59 S17-S12
     12 1566  438 (S25W54 L= 18)  1683    193        4 (1507/ 401-1631/ 485)  15.3 W48-W60 S27-S21
  

    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