Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1046 1832 (N48E19 L=195)  1270    269        2 (1007/1757-1088/1902) -70.6 E22-E15 N40-N57
      2  359 1509 (N13E56 L=159)   669    154        2 ( 312/1481- 413/1534)   6.3 E60-E50 N11-N14
      3 1416 1423 (N25W17 L=231)   795    156        2 (1375/1356-1455/1484)  73.3 W15-W19 N19-N29
      4  338 1388 (N05E53 L=161)   719    142        1 ( 313/1317- 371/1463)  90.0 E54-E51 N00-N10
      5  666 1398 (N09E28 L=186)   419    107        1 ( 621/1377- 722/1419)  26.6 E31-E24 N07-N11
      6 1707 1319 (N25W40 L=254)  1314    200        1 (1646/1227-1752/1417) -48.0 W34-W44 N20-N30
      7  697 1232 (N00E23 L=191)   295    106        0 ( 646/1205- 748/1254)  26.6 E25-E19 S02-N01
      8  759  975 (S14E15 L=199)  1111    196        3 ( 652/ 829- 841/1142)  73.3 E20-E11 S23-S03
      9 1920 1096 (N17W64 L=278)   522     87        1 (1904/1052-1930/1139) -59.0 W61-W65 N14-N19
     10 1591 1061 (N06W34 L=248)   440    108        2 (1544/1024-1637/1116) -20.6 W29-W37 N04-N08
     11  318  955 (S21E46 L=168)  1005    286        2 ( 241/ 849- 396/1044)  49.4 E53-E40 S28-S14
     12  403  779 (S31E39 L=176)  1352    425        0 ( 277/ 694- 528/ 899)  37.3 E50-E29 S37-S21
     13 1613  665 (S15W46 L=260)  4280    987        4 (1223/ 602-1872/ 721)  16.9 W21-W77 S27-S07
  

    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