Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  708 1758 (N29E47 L=215)  1946    204        1 ( 673/1665- 735/1847) -39.5 E59-E40 N21-N35
      2  889 1733 (N32E32 L=229)  1025    220        0 ( 814/1648- 930/1807) -26.6 E43-E25 N26-N35
      3 1315 1563 (N33W02 L=263)   723    170        0 (1291/1479-1334/1641) -71.6 W00-W04 N27-N39
      4  704 1610 (N18E37 L=224)   286     40        0 ( 679/1590- 727/1629)   0.0 E39-E35 N17-N19
      5  322 1588 (N10E70 L=191)  1175     60        1 ( 292/1557- 349/1616) -11.3 E79-E64 N07-N11
      6 1709 1408 (N37W36 L=298)  1196    162        1 (1667/1334-1743/1474)  60.3 W32-W41 N30-N44
      7  544 1343 (S01E37 L=224)   381     70        0 ( 525/1305- 563/1381) -21.8 E39-E34 S02-N00
      8  126 1217 (S15E77 L=184)  1758    118        1 ( 104/1158- 147/1269)  66.8 E82-E72 S18-S11
      9 1653 1104 (N16W35 L=297)   777    203        0 (1571/1069-1726/1158)  36.0 W29-W40 N12-N21
     10  299 1035 (S24E49 L=212)   319     57        0 ( 268/1022- 341/1048)  15.9 E52-E45 S24-S22
     11 1555  458 (S21W55 L=316)   855    124        2 (1505/ 431-1616/ 483)  20.0 W51-W62 S23-S19
     12 1334  448 (S29W40 L=301)   997    175        2 (1257/ 431-1425/ 478)  35.0 W33-W45 S32-S25
     13 1140  411 (S38W30 L=291)   379     59        0 (1107/ 390-1176/ 433)  11.3 W26-W32 S39-S36
  

    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