Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1219 1874 (N59W55 L= 61)  1133    123        1 (1172/1836-1273/1902)  -2.5 W46-W71 N56-N60
      2 1543 1660 (N35W58 L= 64)   567    151        0 (1479/1625-1610/1677) -35.0 W52-W62 N30-N37
      3 1526 1556 (N29W48 L= 54)   773    115        0 (1468/1524-1582/1583) -18.4 W43-W52 N26-N31
      4  650 1423 (N37E20 L=345)   925    304        0 ( 617/1296- 694/1556)  76.8 E23-E16 N28-N45
      5  373 1291 (N31E44 L=321)  2382    362        4 ( 258/1190- 508/1410) -28.1 E62-E31 N23-N39
      6 1665 1359 (N14W50 L= 56)   310     84        0 (1640/1323-1697/1381)  15.9 W46-W53 N12-N15
      7  987 1286 (N23W02 L=  7)   202     66        0 ( 953/1262-1010/1318)  33.7 W00-W03 N21-N24
      8 1301 1240 (N15W20 L= 26)   575    186        1 (1212/1219-1389/1254) -20.0 W14-W26 N12-N16
      9  508  953 (N09E34 L=332)   389     89        2 ( 489/ 901- 529/1007)  81.9 E35-E31 N05-N12
     10 1860  931 (S15W60 L= 65)  1421    167        1 (1800/ 886-1913/ 999)  14.9 W52-W68 S16-S12
     11 1174  829 (S07W06 L= 11)   219     56        0 (1161/ 793-1186/ 862) -90.0 W05-W06 S09-S05
     12  785  696 (S10E20 L=346)   698    119        2 ( 763/ 640- 809/ 760)  82.9 E21-E17 S13-S05
     13  312  582 (S12E60 L=305)  2097    329        3 ( 246/ 500- 410/ 689) -58.4 E66-E52 S18-S05
     14 1051  626 (S18E05 L=  1)   446    172        0 ( 988/ 604-1124/ 657)  -7.1 E08-W00 S19-S15
     15  582  337 (S32E48 L=317)   957    165        2 ( 532/ 298- 642/ 407)  22.4 E56-E39 S35-S27
  

    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