Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1478 1584 (N35W45 L=166)   671     84        2 (1449/1539-1504/1618)  29.1 W40-W49 N32-N37
      2 1614 1300 (N15W44 L=166)  1466    297        6 (1553/1210-1677/1416) -90.0 W39-W48 N09-N23
      3 1202 1369 (N25W16 L=137)   231     58        0 (1177/1345-1228/1396) -45.0 W14-W17 N23-N26
      4  786 1103 (N12E14 L=108)   428    112        2 ( 748/1076- 838/1125)   0.0 E16-E10 N10-N13
      5  640 1095 (N13E24 L= 98)   208     22        0 ( 621/1076- 662/1114)  56.3 E25-E22 N11-N14
      6 1748  859 (S14W50 L=171)   583     56        0 (1722/ 832-1774/ 892)  76.0 W47-W52 S15-S11
      7  533  815 (S03E34 L= 88)   898    221        4 ( 497/ 722- 580/ 883) -77.5 E36-E31 S09-N00
      8 1705  804 (S16W46 L=167)   307    118        0 (1688/ 779-1738/ 846) -68.2 W44-W48 S18-S13
      9 1676  683 (S24W44 L=166)   373     67        0 (1644/ 666-1705/ 698)  11.3 W41-W47 S25-S23
     10  285  598 (S17E63 L= 58)  1448    128        3 ( 243/ 554- 315/ 648) -56.3 E67-E59 S19-S13
     11  588  565 (S20E35 L= 87)   323     62        0 ( 572/ 527- 604/ 599)  59.0 E37-E33 S22-S17
     12  731  385 (S34E30 L= 91)   783    213        0 ( 689/ 320- 801/ 468) -85.6 E32-E26 S40-S27
     13 1162  447 (S34W03 L=125)   422    136        0 (1097/ 434-1228/ 468) -24.0 E01-W08 S35-S31
     14 1102  202 (S57E06 L=116)   514     77        1 (1066/ 188-1140/ 219)   0.0 E10-E01 S58-S54
  

    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