Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  394 1584 (N15E61 L=278)   612    163        3 ( 366/1547- 430/1616) -33.7 E65-E57 N12-N16
      2  184 1173 (S14E64 L=274)   447     69        1 ( 170/1139- 198/1207) -76.0 E65-E62 S15-S11
      3 1692 1120 (N19W40 L= 18)   275    109        0 (1674/1061-1708/1172) -63.4 W37-W42 N15-N22
      4 1852 1143 (N26W55 L= 33)   479     75        0 (1827/1110-1870/1172) -31.0 W51-W57 N24-N27
      5 1910 1009 (N20W65 L= 43)   985    247        1 (1867/ 994-1954/1029)  14.0 W59-W71 N18-N21
      6  479  906 (S23E31 L=307)   238     79        0 ( 447/ 880- 514/ 928)  -9.5 E34-E28 S24-S22
      7 1795  819 (N05W57 L= 36)   443     89        0 (1765/ 767-1821/ 856)  74.1 W56-W59 N01-N08
      8 1541  632 (S12W43 L= 22)   296     93        1 (1495/ 590-1585/ 668)  71.6 W41-W46 S15-S09
      9 1556  557 (S16W48 L= 26)   286    103        0 (1505/ 531-1597/ 590)  45.0 W44-W49 S18-S12
     10 1674  503 (S15W61 L= 40)  1654    301        8 (1594/ 463-1728/ 549)  35.0 W54-W67 S18-S11
     11 1761  490 (S13W73 L= 52)  1015     70        0 (1739/ 459-1787/ 527)  78.7 W70-W77 S15-S10
     12 1105  398 (S39W26 L=  4)   813    218        2 (1074/ 320-1141/ 489) -34.7 W19-W33 S42-S32
     13 1273  320 (S38W42 L= 20)   924    133        4 (1228/ 295-1324/ 357)   0.0 W36-W46 S40-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