Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1114 1900 (N59E37 L=195)   625     43        1 (1088/1880-1136/1924) -54.5 E43-E32 N55-N63
      2 1200 1844 (N57E21 L=211)  1484    161        2 (1147/1799-1273/1893) -14.0 E32-E11 N53-N61
      3  766 1775 (N35E46 L=187)   516     94        1 ( 739/1724- 784/1811) -33.7 E50-E41 N30-N37
      4 1417 1750 (N57W06 L=238)   423     68        0 (1396/1719-1447/1769)  63.4 W03-W08 N52-N60
      5  885 1626 (N27E27 L=205)  1167    304        1 ( 766/1534- 982/1694) -10.8 E38-E17 N23-N28
      6  710 1605 (N21E37 L=195)   269     57        1 ( 693/1579- 727/1632) -53.1 E39-E35 N19-N23
      7 1304 1504 (N32W04 L=236)   903    182        2 (1247/1437-1354/1577) -35.0 E02-W08 N28-N35
      8  976 1407 (N16E13 L=219)   320    108        1 ( 930/1371-1027/1432)   0.0 E16-E09 N14-N17
      9  232 1275 (S09E63 L=169)  1159    111        0 ( 196/1222- 275/1315)  49.4 E66-E58 S12-S05
     10 1277 1229 (N14W09 L=241)   696    145        1 (1251/1149-1309/1303) -77.5 W07-W11 N09-N18
     11 1501 1032 (N09W27 L=260)   269     88        0 (1484/ 987-1526/1070)  90.0 W26-W28 N06-N11
     12  594  986 (S17E25 L=207)   415    114        1 ( 534/ 970- 646/ 998)  14.0 E28-E20 S18-S15
     13 1013  775 (S19W06 L=238)   307    110        1 ( 964/ 757-1063/ 804)   8.1 W02-W09 S20-S17
     14  917  704 (S25W03 L=235)   240    149        0 ( 858/ 653- 955/ 761)  71.6 W00-W04 S29-S20
     15 1450  646 (S13W37 L=269)   378    113        1 (1412/ 600-1470/ 692) -29.7 W32-W39 S15-S11
  

    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