Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  411 1601 (N12E60 L=  6)   479     56        2 ( 391/1575- 434/1627) -63.4 E61-E57 N09-N13
      2  594 1558 (N13E42 L= 23)   323     77        0 ( 562/1517- 614/1588)  90.0 E43-E40 N09-N14
      3 1425 1300 (N20W15 L= 81)   864    255        0 (1402/1169-1450/1416) -66.8 W12-W19 N13-N28
      4 1729 1282 (N30W38 L=104)   473     48        1 (1702/1254-1750/1311) -33.7 W35-W40 N28-N32
      5 1602 1138 (N17W31 L= 96)   836    165        0 (1571/1051-1625/1222) -48.8 W26-W33 N11-N20
      6  159 1123 (S21E64 L=  2)   463     87        1 ( 145/1085- 175/1175)  90.0 E65-E62 S23-S17
      7  260  929 (S31E50 L= 16)  1589    446        4 ( 138/ 907- 382/ 957)   9.5 E62-E38 S33-S27
      8 1438  836 (S05W29 L= 94)   211     24        0 (1417/ 814-1461/ 857)  71.6 W27-W29 S06-S03
      9  871  805 (S23E03 L= 63)   362     75        0 ( 828/ 776- 914/ 834)  56.3 E04-W00 S25-S19
     10  530  689 (S39E23 L= 42)   973    196        1 ( 444/ 667- 615/ 719)  23.2 E30-E16 S42-S35
     11 1077  523 (S33W20 L= 85)  1185    205        0 ( 985/ 460-1175/ 601)  70.3 W15-W22 S39-S25
     12 1411  514 (S22W40 L=106)   769    144        0 (1326/ 478-1473/ 566)  60.9 W36-W42 S26-S17
     13 1532  438 (S22W53 L=119)   478     82        0 (1490/ 407-1577/ 472)  66.8 W51-W54 S25-S18
     14 1395  379 (S30W47 L=113)   502     79        0 (1356/ 362-1439/ 396)  31.0 W44-W49 S31-S28
  

    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