Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1259 1609 (N41W04 L= 88)   410    100        0 (1222/1590-1310/1625)   8.1 W00-W07 N38-N42
      2  514 1552 (N21E48 L= 36)   990    184        3 ( 421/1512- 584/1601)  32.5 E54-E43 N16-N25
      3  964 1542 (N29E15 L= 69)   287    142        0 ( 918/1511-1027/1587) -12.5 E19-E10 N28-N31
      4 1350 1264 (N19W16 L=100)   329    124        0 (1307/1238-1394/1288) -18.4 W12-W18 N17-N20
      5 1790 1040 (N15W53 L=138)   464     73        1 (1762/1007-1806/1078)  68.2 W50-W55 N12-N17
      6  184  954 (S21E64 L= 21)  2035    266        4 ( 116/ 852- 246/1064)  30.0 E83-E55 S28-S13
      7 1084 1011 (S01W04 L= 88)   686    196        2 ( 990/ 988-1162/1033)  24.0 E01-W08 S03-N01
      8  809  825 (S17E09 L= 75)   532    272        1 ( 689/ 791- 930/ 851)  26.6 E16-E01 S21-S13
      9 1411  681 (S14W32 L=116)  1036    303        1 (1287/ 587-1514/ 757)  56.3 W26-W36 S22-S07
     10  432  676 (S34E37 L= 48)   930    221        4 ( 357/ 605- 527/ 737)  33.7 E45-E27 S40-S28
     11 1761  643 (S09W63 L=147)  1317    189        2 (1718/ 568-1795/ 725)  90.0 W59-W65 S14-S03
     12 1692  595 (S13W58 L=142)   494    105        0 (1669/ 549-1714/ 641) -80.5 W56-W59 S16-S10
     13  340  567 (S44E51 L= 34)   392     48        1 ( 316/ 551- 365/ 584)  14.0 E54-E46 S45-S42
     14 1483  499 (S24W44 L=129)   779    254        0 (1412/ 466-1543/ 566)  63.4 W38-W48 S26-S18
  

    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