Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  567 1690 (N59E34 L=304)   389     41        0 ( 548/1666- 593/1707)  26.6 E38-E30 N57-N60
      2 1086 1635 (N44W19 L=357)   281     91        0 (1042/1619-1131/1648) -33.7 W15-W21 N41-N45
      3 1426 1558 (N31W40 L= 19)   476     64        2 (1395/1530-1462/1577)  15.9 W37-W44 N29-N32
      4 1489 1419 (N21W39 L= 17)   249     70        0 (1461/1394-1524/1442) -53.1 W37-W40 N19-N23
      5 1609 1389 (N17W47 L= 25)   491    128        1 (1552/1363-1671/1412) -10.3 W41-W52 N15-N17
      6  737 1327 (N29E14 L=324)  1370    335        3 ( 603/1262- 897/1378) -26.6 E23-E03 N22-N34
      7 1288 1211 (N13W19 L=358)   198     68        0 (1260/1180-1310/1235) -68.2 W17-W20 N10-N15
      8 1164 1145 (N11W10 L=349)   223     63        1 (1143/1116-1187/1178)  63.4 W08-W12 N09-N13
      9  475 1043 (N15E35 L=303)   305    110        0 ( 447/ 997- 515/1072)  38.7 E37-E31 N12-N16
     10  251 1023 (N16E55 L=283)   658    103        1 ( 202/ 996- 299/1053) -15.3 E61-E50 N14-N17
     11 1226  801 (S10W08 L=347)   535    128        1 (1208/ 739-1246/ 865)  60.3 W06-W10 S13-S06
     12 1443  742 (S18W22 L=  0)   409    151        0 (1407/ 714-1495/ 775) -26.6 W19-W25 S19-S14
     13  694  605 (S14E28 L=311)   723    271        0 ( 646/ 548- 757/ 670) -76.0 E30-E23 S17-S09
     14  913  399 (S31E19 L=319)  1120    242        1 ( 827/ 342-1001/ 489)  22.4 E27-E10 S34-S26
  

    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