Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  320 1558 (N12E64 L=116)  2393    327       10 ( 258/1474- 400/1654)  65.2 E70-E57 N06-N19
      2  456 1423 (N05E45 L=135)   629    156        6 ( 407/1377- 514/1463)  54.5 E49-E41 N01-N08
      3 1085 1389 (N15E05 L=175)   204     54        0 (1047/1378-1118/1403)  26.6 E06-E02 N14-N16
      4 1057 1298 (N09E04 L=176)   561    143        0 (1033/1218-1091/1368) -58.0 E06-W00 N04-N13
      5  185 1131 (S15E61 L=119)  3827    609       13 ( 124/ 996- 275/1256) -82.9 E68-E54 S23-S07
      6  134 1166 (S14E69 L=111)  1093    132        3 ( 113/1129- 169/1199)  63.4 E73-E64 S15-S11
      7 1512  985 (N02W29 L=209)   204     40        1 (1490/ 966-1537/1002)   0.0 W27-W31 N00-N02
      8  457  887 (S26E34 L=146)  1482    340        6 ( 354/ 771- 557/1000)  52.1 E41-E27 S35-S17
      9 1365  971 (S02W21 L=201)   233    104        0 (1339/ 920-1406/ 996)  68.2 W19-W22 S05-N00
     10 1447  819 (S09W30 L=210)   286     96        2 (1403/ 802-1492/ 841)   9.5 W26-W32 S09-S07
     11 1437  679 (S17W33 L=213)  1296    373        3 (1279/ 580-1557/ 793)  58.6 W26-W39 S25-S07
     12 1576  672 (S13W43 L=223)   798    244        5 (1534/ 589-1609/ 749) -68.2 W39-W46 S18-S08
     13 1022  531 (S36W13 L=193)   526    148        0 ( 945/ 509-1104/ 556)  10.3 W07-W18 S37-S34
     14 1573  512 (S22W50 L=230)   454     82        1 (1530/ 494-1611/ 532)  38.7 W47-W52 S23-S19
     15 1695  451 (S21W65 L=245)  1755    297        2 (1613/ 410-1788/ 494)  33.7 W58-W74 S25-S15
  

    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