Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1083 1703 (N45W30 L= 77)   737     88        1 (1039/1676-1135/1725) -39.8 W27-W34 N42-N47
      2 1007 1688 (N47W24 L= 71)   329     63        1 ( 979/1658-1032/1707)  63.4 W21-W26 N44-N48
      3 1671 1535 (N15W62 L=109)   504     98        1 (1646/1500-1697/1579)  59.0 W59-W64 N12-N17
      4 1604 1463 (N14W51 L= 98)   636    110        1 (1548/1446-1655/1485) -16.7 W45-W56 N12-N15
      5  953 1288 (N23W03 L= 50)   285     66        2 ( 929/1259- 985/1321)  11.3 W00-W05 N21-N25
      6 1663 1248 (N01W46 L= 92)   331     85        1 (1641/1206-1682/1289)  76.0 W44-W47 S01-N03
      7 1869 1196 (S09W65 L=111)   651     84        0 (1842/1166-1909/1213) -21.8 W60-W71 S11-S07
      8  666 1074 (N19E20 L= 27)   765    225        1 ( 583/1002- 739/1150)  17.1 E26-E13 N16-N21
      9 1827 1101 (S13W56 L=103)   414     51        1 (1801/1077-1851/1121)   0.0 W52-W59 S13-S11
     10  183 1001 (N24E64 L=343)  2364    190        4 ( 154/ 906- 228/1101) -85.2 E68-E58 N18-N30
     11 1006 1031 (N08E01 L= 46)   228     64        1 ( 982/1003-1026/1060)  56.3 E02-W00 N06-N09
     12  361  991 (N20E44 L=  3)   968    257        0 ( 261/ 911- 410/1053) -36.9 E53-E40 N15-N25
     13  268  902 (N17E55 L=352)   586     91        2 ( 249/ 864- 290/ 957)  63.4 E57-E52 N14-N20
     14 1772  884 (S23W46 L= 92)   818    156        1 (1731/ 818-1817/ 950)  21.8 W40-W51 S25-S20
     15  205  763 (N09E67 L=340)   658     79        0 ( 185/ 732- 227/ 815) -78.7 E68-E64 N07-N12
     16 1406  768 (S18W15 L= 62)  1080    350        4 (1246/ 744-1566/ 800) -18.4 W05-W26 S22-S13
     17  553  510 (S12E44 L=  2)  1052    304        2 ( 508/ 386- 594/ 641)  43.2 E52-E36 S19-S04
     18  867  604 (S13E20 L= 26)   246     63        0 ( 838/ 587- 907/ 618) -14.0 E22-E17 S14-S11
     19  881  475 (S21E24 L= 22)   268     36        2 ( 863/ 451- 904/ 493)  33.7 E25-E22 S22-S19
     20  475  390 (S18E59 L=348)   614     66        1 ( 445/ 362- 514/ 414) -31.0 E62-E55 S19-S15
     21  657  283 (S29E52 L=355)   408     48        0 ( 636/ 257- 680/ 306)  18.4 E56-E47 S31-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