Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1403 1582 (N42W17 L=310)  2047    488        4 (1212/1475-1560/1655)  -9.5 W00-W30 N37-N45
      2  822 1486 (N23E22 L=272)   754    167        1 ( 784/1421- 860/1558) -48.8 E27-E19 N18-N26
      3  462 1422 (N12E45 L=249)  1750    250        4 ( 383/1344- 538/1508)  69.0 E50-E41 N06-N19
      4  354 1429 (N11E55 L=239)   821    136        1 ( 315/1387- 377/1483) -50.2 E58-E52 N08-N14
      5  208 1398 (N07E72 L=222)  1238    143        2 ( 186/1323- 231/1467) -56.3 E76-E67 N02-N11
      6  449 1341 (N07E43 L=251)   398    118        0 ( 424/1297- 496/1373)  63.4 E45-E40 N04-N10
      7  499 1288 (N05E38 L=256)   298     99        1 ( 460/1261- 534/1308)  21.8 E40-E35 N03-N06
      8 1847 1180 (N24W59 L=353)   557     84        0 (1821/1134-1868/1217) -45.0 W56-W62 N21-N25
      9  309 1050 (S12E49 L=245)   971    133        1 ( 275/ 989- 345/1113)  66.0 E51-E45 S16-S07
     10  640  886 (S16E21 L=273)  1126    445        1 ( 467/ 823- 793/ 946)  12.3 E33-E10 S22-S11
     11 1408  856 (S04W26 L=320)   316    109        1 (1384/ 802-1429/ 894) -80.5 W24-W27 S07-S01
     12 1663  576 (S16W55 L=349)   603     78        1 (1625/ 555-1700/ 601)  38.7 W51-W57 S17-S13
     13 1435  499 (S25W40 L=333)  1392    258        3 (1310/ 425-1551/ 561)  42.7 W33-W46 S31-S19
  

    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