Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1121 1831 (N48E17 L= 61)   340     41        1 (1093/1811-1149/1849)  53.1 E19-E15 N45-N50
      2  498 1660 (N21E53 L= 26)   815     90        4 ( 457/1630- 535/1694)  68.2 E55-E48 N18-N23
      3  382 1637 (N18E63 L= 15)   858     92        2 ( 353/1608- 418/1678)  90.0 E66-E56 N16-N21
      4  640 1585 (N18E37 L= 41)   370     77        0 ( 615/1551- 676/1616)  78.7 E38-E36 N15-N20
      5 1629 1378 (N28W31 L=109)   390     82        0 (1604/1343-1663/1406)  50.2 W29-W34 N25-N31
      6  266 1387 (N01E60 L= 18)   974    137        1 ( 196/1366- 333/1405)   3.8 E68-E53 N00-N02
      7 1778 1377 (N33W46 L=124)   403     96        0 (1728/1354-1820/1398)  30.3 W40-W52 N29-N36
      8  271 1218 (S09E54 L= 24)   351     49        0 ( 249/1188- 297/1241)  45.0 E55-E51 S11-S07
      9 1082 1148 (N01W01 L= 79)   212     97        0 (1036/1115-1119/1184) -11.3 E02-W03 N00-N02
     10  499 1150 (S10E34 L= 44)   253     65        0 ( 478/1121- 524/1181)  63.4 E35-E33 S11-S07
     11  284 1128 (S14E51 L= 27)   464     66        1 ( 267/1087- 303/1163)  90.0 E53-E49 S16-S12
     12  239 1065 (S19E55 L= 23)   462     47        0 ( 219/1034- 256/1098) -76.0 E57-E52 S20-S16
     13 1513 1072 (N07W27 L=106)   266     81        0 (1472/1056-1555/1092)   0.0 W24-W30 N05-N07
     14  735 1014 (S14E17 L= 62)   184     41        0 ( 712/ 995- 757/1034) -18.4 E18-E15 S14-S12
     15  271  946 (S25E51 L= 27)  1129    257        1 ( 198/ 839- 367/1032)  39.5 E59-E42 S32-S18
     16 1789  999 (N10W50 L=128)   296     49        2 (1774/ 965-1811/1023) -56.3 W47-W51 N08-N11
     17 1221  801 (S15W16 L= 95)  1298    638        0 ( 977/ 727-1490/ 885)  25.8 W01-W30 S21-S04
     18 1560  666 (S14W42 L=120)   592    145        2 (1477/ 637-1618/ 696)  40.6 W37-W46 S17-S11
     19 1292  516 (S29W31 L=109)   294     59        0 (1260/ 497-1327/ 531)  36.9 W28-W32 S30-S27
  

    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