Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  473 1509 (N18E44 L=  4)   757    121        2 ( 423/1469- 523/1565)  45.0 E46-E40 N14-N21
      2  318 1465 (N14E56 L=351)  4958    373       17 ( 229/1320- 459/1562)  53.1 E64-E46 N04-N20
      3 1719 1501 (N35W47 L= 95)   508     76        0 (1683/1475-1746/1525) -36.9 W42-W50 N33-N36
      4  246 1033 (S13E54 L=354)  1435    259        4 ( 199/ 944- 300/1149)  63.4 E58-E48 S17-S05
      5  161 1084 (S10E64 L=344)  1030    102        1 ( 137/1034- 181/1138)  90.0 E67-E60 S12-S06
      6 1853 1072 (N10W57 L=105)   795    110        2 (1830/1010-1874/1129)  82.9 W54-W59 N05-N13
      7  996  840 (S17W01 L= 48)   642    193        0 ( 959/ 754-1023/ 931) -66.0 E02-W02 S21-S12
      8 1538  763 (S14W36 L= 84)  1356    465        0 (1455/ 616-1621/ 920) -87.0 W31-W40 S22-S03
      9  284  848 (S23E51 L=357)  2903    549        3 (  95/ 773- 566/ 899)   7.1 E83-E27 S28-S18
     10 1227  850 (S13W14 L= 62)   295    125        0 (1169/ 833-1289/ 869)   0.0 W10-W18 S14-S12
     11  593  690 (S31E25 L= 23)  2885    459        8 ( 374/ 618- 741/ 846)  29.5 E45-E15 S36-S19
     12 1348  812 (S14W22 L= 70)   250     83        0 (1327/ 772-1385/ 839)  68.2 W21-W24 S16-S11
     13  949  426 (S44W04 L= 52)   315      0        0 ( 930/ 402- 974/ 454) -45.0 W02-W06 S45-S42
     14 1160  401 (S42W21 L= 69)  2109    365        4 ( 975/ 368-1324/ 439)   7.9 W06-W35 S44-S38
     15 1599  369 (S36W62 L=110)   738     72        2 (1562/ 349-1637/ 391)  11.3 W56-W67 S37-S33
  

    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