Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  622 1830 (N33E63 L=264)   783     60        1 ( 596/1807- 650/1858) -78.7 E66-E58 N30-N36
      2  967 1745 (N35E27 L=299)   367     60        0 ( 951/1711- 984/1779) -56.3 E29-E25 N32-N38
      3  851 1701 (N28E32 L=294)   464    146        0 ( 779/1657- 902/1727)   0.0 E37-E26 N26-N29
      4 1234 1447 (N23W01 L=327)   293     95        0 (1191/1420-1277/1465)   0.0 E02-W03 N21-N23
      5 1120 1343 (N13E03 L=324)   234    110        0 (1096/1297-1146/1397) -45.0 E05-W00 N11-N16
      6  837 1244 (N00E16 L=311)   427    134        1 ( 797/1189- 883/1300) -23.2 E19-E12 S02-N02
      7 1753 1031 (N15W46 L= 12)  1272    364        0 (1661/ 885-1817/1162) -28.8 W35-W55 N08-N19
      8 1626 1078 (N13W34 L=  1)   698    135        0 (1606/1017-1649/1143) -82.9 W32-W35 N09-N17
      9  659 1096 (S12E23 L=304)   366    131        0 ( 594/1070- 720/1117)  14.0 E26-E18 S13-S11
     10  624  867 (S26E20 L=307)   747    292        1 ( 525/ 827- 706/ 978)  55.3 E27-E15 S30-S17
     11  852  875 (S20E06 L=321)   378    136        0 ( 790/ 858- 922/ 894)  29.7 E09-E02 S21-S17
     12 1052  761 (S21W09 L=336)   327    150        0 ( 980/ 747-1128/ 777)  18.4 W04-W13 S23-S19
     13  778  652 (S35E05 L=322)  1006    221        3 ( 675/ 617- 880/ 694)  36.9 E11-W01 S38-S29
     14 1438  379 (S30W52 L= 19)  1850    326        2 (1287/ 281-1552/ 443)  70.6 W47-W57 S40-S22
     15 1242  256 (S44W50 L= 17)   545     62        1 (1211/ 239-1275/ 288)  36.9 W45-W54 S46-S42
  

    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