Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1258 1819 (N45W48 L=319)  2067    270        3 (1149/1755-1350/1896)   4.8 W34-W70 N41-N47
      2  845 1541 (N38W02 L=273)   340     84        1 ( 829/1499- 868/1590)  74.1 W00-W04 N34-N41
      3 1142 1573 (N32W22 L=294)   267     63        1 (1104/1559-1180/1589) -36.9 W20-W24 N30-N33
      4 1535 1427 (N14W42 L=313)  1547    245        3 (1440/1368-1646/1506) -55.3 W36-W47 N07-N20
      5  325 1476 (N47E47 L=224)   463     58        1 ( 293/1461- 366/1492) -14.0 E53-E41 N45-N49
      6  859 1413 (N29E01 L=271)   226     84        1 ( 839/1374- 892/1437)  33.7 E02-W01 N27-N30
      7  575 1323 (N31E22 L=250)  1238    284        1 ( 442/1304- 708/1345) -16.7 E32-E12 N27-N33
      8 1031 1252 (N16W06 L=277)   514    215        1 ( 947/1202-1126/1297)   0.0 W00-W11 N14-N17
      9 1142 1120 (N06W09 L=280)   221     78        0 (1119/1078-1158/1150)  78.7 W07-W09 N03-N08
     10  803 1027 (N08E12 L=259)  1002    374        1 ( 661/1000- 975/1065) -14.7 E21-E02 N04-N11
     11 1485  984 (S09W26 L=297)   641    117        2 (1444/ 928-1526/1042) -76.0 W23-W27 S13-S05
     12 1691  972 (S15W40 L=311)   275     24        1 (1670/ 945-1707/ 994) -90.0 W38-W41 S16-S13
     13  121  943 (N17E70 L=201)   521     73        1 (  95/ 905- 146/ 976) -38.7 E75-E66 N14-N18
     14  277  718 (N01E57 L=214)   691     84        2 ( 244/ 686- 315/ 753)  14.0 E60-E52 N00-N03
     15  675  639 (S11E30 L=242)  1051    232        5 ( 600/ 552- 745/ 708) -56.3 E34-E26 S16-S06
     16 1371  539 (S33W10 L=281)   431     47        1 (1343/ 515-1406/ 565)  14.0 W08-W12 S34-S31
     17  592  509 (S17E40 L=231)   250     50        0 ( 579/ 484- 607/ 540)  45.0 E41-E38 S18-S14
     18  385  427 (S18E63 L=209)   846    120        2 ( 345/ 364- 415/ 465)  76.0 E66-E59 S22-S14
     19  825  375 (S30E31 L=241)   952    156        0 ( 781/ 303- 863/ 449)  33.7 E37-E24 S34-S25
     20  782  172 (S45E52 L=219)  1525    144        2 ( 724/ 135- 830/ 225)   6.0 E63-E42 S47-S40
  

    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