Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  820 1277 (N19E13 L=220)   547    122        1 ( 790/1244- 877/1324) -33.7 E15-E09 N17-N22
      2 1548 1253 (N17W36 L=270)   594    176        0 (1519/1169-1567/1319)  78.7 W33-W37 N11-N21
      3 1376 1281 (N19W23 L=257)   324     70        0 (1337/1256-1410/1305)  21.8 W20-W25 N17-N20
      4 1444 1158 (N11W27 L=261)   507    182        1 (1376/1135-1532/1200) -15.3 W22-W33 N10-N14
      5  511 1168 (N12E34 L=200)   228     91        0 ( 470/1154- 549/1181)   0.0 E37-E31 N10-N12
      6 1642 1130 (N09W42 L=276)   407     71        0 (1620/1100-1666/1166) -90.0 W40-W43 N07-N11
      7  136 1123 (N07E73 L=161)  1050    182        2 ( 116/1096- 162/1165) -24.0 E77-E68 N05-N09
      8  358  955 (S02E46 L=188)  1266    222        3 ( 288/ 912- 441/1015)  -8.7 E52-E38 S04-N01
      9  795  976 (N00E14 L=220)   295     65        1 ( 771/ 935- 812/1005) -63.4 E15-E13 S02-N02
     10 1442  850 (S07W27 L=261)   222     89        0 (1426/ 816-1478/ 876)  45.0 W25-W29 S09-S05
     11 1034  809 (S10W01 L=235)   573    171        2 ( 991/ 724-1079/ 874)  68.2 E02-W03 S15-S05
     12 1761  780 (S13W54 L=287)  1134    136        1 (1724/ 712-1794/ 849)  66.0 W50-W56 S17-S08
     13 1502  787 (S12W31 L=265)   299     96        0 (1478/ 747-1525/ 836) -71.6 W29-W33 S14-S08
     14  659  680 (S18E24 L=210)   267     63        0 ( 624/ 650- 688/ 708) -45.0 E26-E22 S20-S16
     15 1414  583 (S25W27 L=261)   261     76        0 (1397/ 547-1430/ 631)  90.0 W26-W28 S27-S21
     16 1642  583 (S26W46 L=280)   450     64        0 (1610/ 563-1671/ 613)  36.9 W43-W48 S27-S23
     17  306  530 (S31E59 L=175)   537    109        1 ( 292/ 500- 332/ 558)  68.2 E60-E55 S33-S28
     18  369  469 (S35E54 L=179)   510     87        0 ( 350/ 434- 385/ 503)  68.2 E56-E52 S37-S32
     19 1092  409 (S38W05 L=239)   542    141        0 (1038/ 376-1143/ 460)  45.0 W01-W08 S40-S33
  

    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