Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1690 1494 (N11W59 L=293)  2445    558        2 (1552/1451-1825/1528) -13.6 W46-W79 N05-N15
      2 1712 1397 (N06W56 L=290)   390     70        1 (1696/1368-1729/1435)  63.4 W53-W58 N04-N08
      3 1305 1383 (N17W27 L=261)   263     87        0 (1269/1362-1357/1413) -45.0 W25-W29 N15-N19
      4 1228 1240 (N11W17 L=252)   242     74        0 (1201/1203-1259/1279) -90.0 W16-W18 N08-N14
      5  644 1161 (N22E19 L=215)  3096    691        9 ( 379/1101- 922/1223) -24.0 E38-E02 N15-N31
      6  287 1199 (N33E46 L=188)   324    105        1 ( 250/1180- 327/1212) -21.6 E50-E42 N32-N34
      7  207 1080 (N28E56 L=179)   585    104        0 ( 193/1048- 238/1127)  78.7 E57-E52 N25-N30
      8 1334  924 (S09W15 L=249)   266     69        1 (1299/ 898-1374/ 946) -36.9 W12-W16 S10-S06
      9 1301  846 (S12W11 L=245)   411     79        2 (1271/ 811-1341/ 897)  53.1 W08-W13 S13-S09
     10 1155  829 (S09W02 L=237)   223     34        0 (1133/ 805-1181/ 857)  14.0 W00-W04 S10-S07
     11 1367  681 (S24W11 L=245)   493    183        1 (1317/ 613-1429/ 744) -70.0 W09-W13 S29-S18
     12  949  446 (S27E22 L=213)  1193    315        4 ( 925/ 326- 979/ 573)  59.5 E27-E17 S35-S18
     13  747  385 (S25E37 L=197)   352    120        0 ( 722/ 343- 776/ 424)  29.7 E40-E33 S27-S23
     14  521  358 (S22E55 L=179)   517     79        2 ( 492/ 331- 555/ 384) -36.9 E57-E52 S23-S19
  

    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