Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  711 1642 (N51E02 L=147)   336     44        0 ( 693/1615- 727/1670)  53.1 E04-W00 N49-N53
      2 1024 1561 (N36W17 L=166)   432    152        1 ( 947/1531-1091/1583) -10.3 W10-W21 N34-N36
      3  235 1356 (N44E57 L= 92)   536     40        0 ( 213/1330- 261/1382) -26.6 E61-E52 N41-N46
      4 1706 1201 (S04W46 L=196)   296     62        0 (1689/1170-1721/1237)  45.0 W44-W48 S05-S02
      5 1400 1086 (S01W22 L=172)   673    132        0 (1326/1060-1463/1116) -12.5 W17-W26 S02-N00
      6  143  944 (N20E68 L= 82)  2371    195        2 (  78/ 888- 210/1043) -24.4 E82-E59 N15-N26
      7 1511  783 (S21W22 L=172)   481     92        0 (1484/ 732-1527/ 847)  66.8 W20-W24 S24-S17
      8 1661  787 (S26W34 L=183)   564    106        1 (1612/ 761-1704/ 815)   0.0 W29-W37 S27-S23
      9  315  725 (N05E53 L= 96)   529    118        0 ( 281/ 680- 336/ 784)  39.8 E57-E49 N02-N07
     10 1182  698 (S17W00 L=150)   292    123        2 (1136/ 666-1221/ 729) -71.6 E02-W02 S19-S13
     11 1056  624 (S18E09 L=141)   214     91        0 (1042/ 589-1073/ 677)  45.0 E10-E06 S19-S15
     12  893  565 (S17E20 L=129)   645    301        0 ( 797/ 478- 993/ 664)  16.4 E28-E11 S20-S13
     13 1380  610 (S28W10 L=159)   625    141        1 (1315/ 577-1444/ 652)  -5.7 W05-W15 S28-S26
     14  586  571 (S10E38 L=111)  1584    407        2 ( 454/ 470- 735/ 623) -38.7 E47-E31 S18-S05
     15  474  516 (S11E49 L=100)   373     55        2 ( 445/ 489- 500/ 536) -45.0 E51-E46 S11-S08
     16  350  432 (S13E67 L= 82)  1328    137        1 ( 327/ 375- 368/ 501)  26.6 E80-E60 S17-S08
     17 1190  358 (S39E10 L=139)  1554    375        2 (1071/ 260-1283/ 493)  24.4 E22-W00 S45-S32
     18  972  440 (S27E20 L=129)   339     70        1 ( 945/ 401- 996/ 463)  31.0 E22-E17 S29-S25
     19 1349  314 (S49E00 L=149)   549     71        0 (1313/ 284-1389/ 343)   9.5 E03-W03 S51-S47
     20  769  182 (S40E53 L= 97)   970     98        1 ( 750/ 130- 794/ 230)  22.8 E65-E46 S44-S36
     21  985  172 (S48E38 L=112)  3237    303        7 ( 859/ 110-1118/ 224) -51.3 E51-E25 S54-S39
  

    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