Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1334 1584 (N30W38 L=248)   297     44        0 (1309/1563-1363/1603) -76.0 W36-W39 N27-N31
      2 1444 1469 (N20W39 L=249)   559    103        0 (1385/1450-1498/1488) -20.6 W34-W42 N18-N21
      3 1412 1326 (N13W31 L=241)   374     86        1 (1384/1294-1446/1357)   0.0 W28-W33 N11-N15
      4  235 1105 (N29E55 L=155)  1047    197        3 ( 147/1053- 303/1168) -23.2 E69-E48 N24-N33
      5  608 1015 (N16E25 L=185)   219    108        0 ( 565/ 979- 642/1044) -51.3 E27-E23 N13-N18
      6  867  997 (N09E09 L=201)   223     67        1 ( 837/ 973- 896/1023) -63.4 E10-E08 N07-N11
      7 1558  692 (S27W25 L=235)   441    101        0 (1528/ 646-1584/ 738) -76.0 W23-W26 S30-S22
      8 1844  691 (S38W55 L=265)  1047    102        2 (1800/ 657-1901/ 724)  -3.2 W48-W67 S39-S36
      9 1187  598 (S21E02 L=209)   386    113        1 (1141/ 560-1216/ 648)  31.0 E05-W01 S23-S19
     10 1044  612 (S17E09 L=201)   315    100        0 (1025/ 554-1071/ 645)  71.6 E11-E07 S20-S14
     11  250  577 (S03E69 L=141)   720     66        1 ( 218/ 553- 277/ 605) -26.6 E73-E65 S04-S01
     12 1003  532 (S21E14 L=196)   450     76        1 ( 965/ 512-1051/ 559) -45.0 E16-E11 S23-S19
     13  634  348 (S24E47 L=164)  2002    373        4 ( 607/ 199- 675/ 520)  37.2 E64-E34 S36-S13
     14 1503  397 (S47W16 L=227)  1147    164        1 (1432/ 366-1572/ 433)   0.0 W09-W23 S48-S44
  

    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