Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  805 1545 (N44E00 L= 51)   361    129        1 ( 752/1516- 845/1588)  14.0 E04-W04 N42-N46
      2  349 1501 (N53E52 L=  0)   471     55        0 ( 317/1482- 389/1515)  -4.8 E57-E45 N51-N53
      3 1086 1270 (N20W10 L= 62)   211     84        0 (1058/1239-1101/1301)  36.9 W07-W11 N18-N21
      4  965 1234 (N21W02 L= 53)   304    133        0 ( 904/1204-1012/1254)  -9.5 E02-W04 N17-N22
      5  178 1100 (N28E66 L=346)   550     73        1 ( 151/1080- 212/1126) -11.3 E70-E60 N26-N29
      6  766 1003 (N12E16 L= 36)  1343    384        5 ( 686/ 834- 813/1123)  83.7 E20-E12 N02-N20
      7 1720  858 (S21W42 L= 93)  4689    929        7 (1544/ 663-1907/1095)  18.4 W25-W68 S30-S12
      8  482  954 (N15E36 L= 16)   338    150        0 ( 458/ 911- 530/ 986)   0.0 E37-E31 N12-N16
      9  438  874 (N11E41 L= 11)   249     59        1 ( 412/ 854- 461/ 904)  56.3 E42-E38 N09-N12
     10 1818  721 (S34W53 L=105)   728     92        2 (1777/ 686-1847/ 759)   5.7 W47-W57 S36-S31
     11  709  719 (S03E26 L= 26)   273     65        0 ( 692/ 689- 730/ 754) -90.0 E26-E24 S05-S01
     12  930  534 (S19E18 L= 34)   220     77        0 ( 891/ 515- 962/ 546) -36.9 E20-E16 S21-S18
     13 1139  342 (S39E12 L= 40)  1372    266        3 (1050/ 259-1213/ 448)  30.1 E22-E03 S43-S32
     14  853  375 (S29E30 L= 22)   385     90        0 ( 808/ 357- 895/ 398) -38.7 E31-E26 S30-S25
     15  488  349 (S23E61 L=351)   569     71        4 ( 466/ 317- 517/ 370)  18.4 E66-E57 S25-S21
  

    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