Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1071 1645 (N41W25 L=257)   460    100        0 (1031/1603-1115/1676)   6.3 W20-W29 N38-N41
      2 1605 1606 (N20W60 L=292)   895     91        1 (1557/1572-1649/1639)  -4.4 W53-W66 N18-N21
      3 1526 1420 (N13W42 L=274)  1218    181        4 (1452/1344-1585/1491) -79.7 W39-W44 N07-N18
      4  807 1337 (N30E04 L=228)   801    190        1 ( 716/1290- 896/1368) -45.0 E09-W00 N24-N33
      5  715 1226 (N26E13 L=219)   197     61        1 ( 693/1193- 739/1253) -90.0 E14-E11 N23-N27
      6 1244 1102 (N05W14 L=246)  1200    335        1 (1187/ 958-1322/1231)  33.7 W07-W22 S01-N10
      7 1399 1188 (N05W25 L=257)   357     83        1 (1367/1155-1439/1229) -71.6 W24-W27 N02-N08
      8 1921 1037 (S21W66 L=298)   978     73        1 (1880/1011-1949/1070)  -4.4 W59-W72 S22-S18
      9 1635  940 (S15W34 L=266)   782    182        2 (1547/ 894-1694/ 967) -15.3 W27-W38 S19-S12
     10  518  868 (N10E34 L=198)   289     93        0 ( 480/ 849- 563/ 891)  -9.5 E36-E30 N09-N11
     11 1852  821 (S31W53 L=285)   887     79        1 (1814/ 785-1881/ 857)  36.9 W48-W57 S33-S28
     12  774  717 (S04E22 L=210)   332    133        1 ( 748/ 655- 806/ 774)  82.9 E23-E20 S08-N00
     13  331  696 (N04E54 L=178)  1144    254        2 ( 236/ 625- 425/ 738) -28.1 E62-E47 N00-N08
     14  514  581 (S06E43 L=189)   442    117        0 ( 462/ 553- 566/ 613)   0.0 E47-E38 S07-S04
     15  431  453 (S12E57 L=175)  6273    391       18 ( 349/ 313- 527/ 586)  31.8 E81-E47 S21-S03
     16  598  512 (S12E40 L=191)   677    133        1 ( 569/ 452- 629/ 551)  71.6 E43-E36 S15-S09
     17  748  383 (S23E37 L=195)  1374    350        1 ( 697/ 263- 819/ 549)  33.7 E49-E25 S30-S14
     18 1571  443 (S47W22 L=253)   406     49        0 (1555/ 420-1594/ 471) -63.4 W20-W24 S49-S43
     19  564  412 (S17E48 L=183)   921    156        3 ( 509/ 369- 602/ 464) -76.0 E51-E44 S20-S12
     20  514  343 (S21E58 L=174)   398    131        0 ( 463/ 324- 563/ 367) -18.4 E61-E52 S22-S18
     21  883  268 (S35E36 L=196)  1012    155        2 ( 808/ 230- 947/ 313)   0.0 E43-E28 S37-S32
  

    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