Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1679 1620 (N23W63 L=251)  2160    336        3 (1596/1574-1771/1681) -39.8 W57-W73 N18-N28
      2 1290 1469 (N22W26 L=214)  2386    526        6 (1076/1423-1543/1498) -14.0 W12-W44 N17-N26
      3 1802 1462 (N11W68 L=256)   939    145        4 (1776/1437-1838/1485) -14.0 W64-W73 N09-N12
      4 1707 1298 (N04W50 L=239)   559     62        1 (1677/1260-1738/1333) -68.2 W48-W52 N01-N06
      5 1182 1285 (N14W14 L=203)   258     82        0 (1149/1266-1231/1315) -36.9 W12-W17 N11-N15
      6  259 1206 (N27E50 L=139)  1467    384        4 ( 172/1102- 360/1297) -39.5 E59-E41 N18-N33
      7  908 1206 (N14E03 L=185)   527    100        1 ( 857/1156- 955/1254) -60.3 E05-E01 N10-N17
      8 1914 1122 (S11W67 L=256)   714    184        2 (1888/1102-1942/1151)   8.1 W63-W72 S11-S09
      9 1881 1001 (S17W60 L=249)  4522    601       10 (1815/ 862-1936/1131) -83.3 W54-W66 S25-S08
     10 1809  983 (S16W52 L=240)   767     79        2 (1784/ 943-1832/1025)  78.7 W49-W54 S18-S13
     11 1674  962 (S15W40 L=228)   742    164        0 (1633/ 896-1700/1023)  76.0 W37-W42 S18-S10
     12  409  778 (S01E44 L=145)   580    146        1 ( 388/ 696- 441/ 845)  76.0 E45-E42 S06-N02
     13  233  648 (S06E66 L=123)  1957    303        3 ( 191/ 586- 282/ 706)  28.3 E76-E60 S09-S02
     14 1339  687 (S24W13 L=201)   281    107        0 (1282/ 665-1385/ 701) -26.6 W09-W15 S26-S22
     15 1363  565 (S33W13 L=201)  1005    193        2 (1276/ 489-1426/ 652)  28.3 W05-W18 S36-S28
     16  340  590 (S11E56 L=132)   416    112        1 ( 318/ 557- 362/ 623)  26.6 E59-E53 S12-S09
     17  772  525 (S23E27 L=162)   327    116        0 ( 721/ 491- 811/ 564)  15.9 E30-E23 S24-S20
     18  864  440 (S30E24 L=165)  1270    376        4 ( 763/ 325- 978/ 555)  28.6 E35-E12 S36-S24
     19  374  483 (S18E58 L=130)  2319    327        5 ( 302/ 405- 448/ 537) -48.0 E64-E52 S24-S14
  

    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