Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1537 1596 (N31W43 L=232)   306     57        1 (1512/1573-1563/1614) -45.0 W40-W44 N28-N32
      2 1015 1555 (N32W04 L=193)   440     61        1 ( 980/1532-1057/1575) -21.8 W01-W06 N30-N33
      3 1813 1372 (N14W61 L=250)   464    122        3 (1798/1340-1833/1419) -90.0 W58-W63 N12-N17
      4 1742 1358 (N14W53 L=243)   469     47        1 (1720/1326-1760/1387)  76.0 W51-W54 N11-N15
      5 1842 1177 (N02W60 L=249)   664     66        1 (1815/1144-1863/1205) -53.1 W56-W62 N00-N04
      6  135 1067 (N08E67 L=123)  1114    203        2 ( 106/1022- 159/1114) -80.5 E71-E63 N05-N11
      7  239 1000 (N03E55 L=135)   364     47        1 ( 218/ 972- 259/1023)  45.0 E56-E52 N01-N04
      8 1539  951 (S09W32 L=221)   251     40        0 (1519/ 928-1567/ 973)  33.7 W30-W34 S10-S08
      9 1896  938 (S12W64 L=254)   516     69        0 (1873/ 905-1913/ 962) -53.1 W61-W66 S14-S10
     10  669  893 (S07E23 L=167)   587    156        1 ( 591/ 833- 737/ 937) -29.1 E27-E18 S10-S03
     11 1809  775 (S22W55 L=245)  4392    794        5 (1669/ 676-1947/ 904)  22.5 W43-W72 S27-S14
     12  699  637 (S23E24 L=165)   210     60        0 ( 671/ 607- 726/ 665)  36.9 E26-E22 S24-S21
     13 1071  611 (S27E00 L=189)   411     56        1 (1034/ 586-1098/ 641)  33.7 E02-W01 S29-S25
     14 1648  417 (S46W50 L=239)   507     82        0 (1620/ 397-1673/ 439) -18.4 W46-W52 S47-S43
  

    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