Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1537 1648 (N25W59 L= 38)   708     42        0 (1506/1620-1562/1673)  76.0 W55-W62 N23-N27
      2 1543 1534 (N19W50 L= 30)   330     59        1 (1525/1501-1559/1567)  26.6 W47-W53 N17-N20
      3 1311 1512 (N25W33 L= 13)   341    107        0 (1259/1493-1357/1536) -56.3 W30-W35 N22-N28
      4 1203 1411 (N23W22 L=  2)   523    187        0 (1115/1365-1275/1441) -45.0 W17-W25 N18-N26
      5  247 1407 (N49E62 L=278)   485     63        0 ( 223/1381- 276/1425)   7.1 E66-E56 N47-N50
      6  985 1330 (N25W06 L=346)   197    106        0 ( 965/1293-1006/1374)  38.7 W04-W09 N22-N26
      7  990 1212 (N18W03 L=343)   923    396        2 ( 890/1084-1118/1341) -76.0 W00-W06 N07-N27
      8  418 1261 (N35E36 L=304)  1141    190        2 ( 346/1211- 506/1313) -31.0 E43-E28 N31-N40
      9  586 1140 (N24E24 L=316)   327     72        2 ( 554/1109- 624/1171) -51.3 E25-E21 N21-N26
     10  177 1021 (N25E64 L=275)   690     84        1 ( 157/ 985- 195/1062)  53.1 E67-E61 N23-N27
     11  209  898 (N18E62 L=278)  3368    334        8 ( 142/ 749- 250/1053)  60.9 E70-E54 N08-N26
     12 1473  890 (S13W22 L=  2)   914    340        1 (1407/ 764-1538/1052)  38.7 W15-W30 S18-S06
     13 1751  939 (S20W44 L= 24)   877    189        3 (1732/ 849-1768/1031)  59.0 W41-W47 S24-S14
     14  716  918 (N08E20 L=319)   502    173        0 ( 654/ 863- 780/ 981) -60.9 E22-E17 N04-N13
     15  421  892 (N13E41 L=299)   313     62        2 ( 386/ 865- 448/ 912) -36.9 E43-E39 N11-N14
     16 1211  642 (S20W00 L=340)   275    100        1 (1192/ 616-1250/ 684) -80.5 W00-W02 S22-S16
     17 1475  618 (S30W17 L=356)   544    105        1 (1447/ 572-1511/ 652)  33.7 W13-W19 S32-S27
     18  968  434 (S26E21 L=319)   246     77        0 ( 951/ 397- 984/ 474)  38.7 E23-E18 S28-S23
     19  963  267 (S39E31 L=309)   627    134        0 ( 936/ 212- 986/ 331)  55.0 E35-E27 S43-S33
  

    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