Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1341 1678 (N46W34 L=188)   547     73        1 (1305/1652-1385/1699) -18.4 W30-W38 N43-N48
      2 1223 1672 (N47W22 L=176)   267     72        1 (1204/1641-1245/1690)  31.0 W19-W24 N44-N48
      3 1598 1664 (N42W62 L=217)   768     96        1 (1551/1636-1641/1687) -14.0 W56-W68 N39-N44
      4 1512 1527 (N33W42 L=196)   326     49        1 (1483/1505-1537/1547) -26.6 W39-W44 N31-N35
      5  196 1360 (N26E73 L= 81)  1238    149        1 ( 156/1299- 228/1427)  71.6 E79-E67 N21-N30
      6  570 1384 (N28E31 L=123)   297     73        0 ( 555/1343- 583/1419) -68.2 E33-E30 N25-N30
      7  882 1301 (N22E08 L=146)   809    249        2 ( 809/1245- 965/1339)   5.2 E13-E02 N18-N24
      8  443 1293 (N22E40 L=114)   407    105        3 ( 402/1261- 482/1334) -23.2 E44-E37 N20-N25
      9  284 1280 (N21E56 L= 99)   352     79        1 ( 271/1237- 299/1316)  90.0 E57-E54 N18-N23
     10 1521 1271 (N17W35 L=189)   301     58        0 (1507/1235-1542/1304)  63.4 W33-W36 N14-N18
     11 1516  903 (S06W31 L=186)   610    144        1 (1468/ 856-1560/ 948) -40.6 W27-W34 S08-S02
     12 1064  859 (S06W02 L=156)   462    210        0 ( 994/ 793-1118/ 891) -33.7 E02-W04 S10-S03
     13  967  800 (S09E05 L=150)   231    109        1 ( 940/ 754-1004/ 834)  45.0 E06-E02 S11-S07
     14 1814  800 (S15W59 L=213)   961    104        2 (1778/ 766-1851/ 833)   6.3 W54-W63 S17-S12
     15 1289  786 (S12W16 L=170)   417     82        0 (1254/ 755-1316/ 812) -26.6 W13-W17 S13-S09
     16  306  718 (S13E54 L=100)  2008    343        9 ( 206/ 638- 440/ 798) -23.2 E65-E42 S18-S08
     17  541  716 (S13E34 L=121)   742    179        1 ( 493/ 649- 594/ 796)  52.1 E37-E28 S17-S08
     18 1084  725 (S14W03 L=157)   355    139        1 (1015/ 705-1144/ 740) -15.9 E01-W06 S15-S13
     19 1175  678 (S18W08 L=163)   693    210        2 (1095/ 621-1245/ 734)  31.0 W02-W12 S21-S14
     20 1506  626 (S24W32 L=186)  1505    286        3 (1408/ 522-1591/ 708)  42.5 W25-W38 S30-S18
     21  321  536 (S26E61 L= 94)  1006    106        2 ( 297/ 487- 345/ 590)  35.0 E67-E55 S29-S22
     22  575  509 (S28E35 L=119)   419    130        0 ( 558/ 441- 591/ 559)  60.9 E37-E32 S32-S23
     23  444  528 (S26E47 L=108)   351     60        1 ( 431/ 502- 466/ 558)  53.1 E49-E44 S28-S24
     24 1478  464 (S35W33 L=187)   442    117        0 (1421/ 431-1527/ 485)  12.5 W28-W37 S37-S33
     25  622  299 (S45E43 L=112)   447     17        0 ( 602/ 283- 646/ 315)  15.9 E46-E39 S46-S43
     26 1265  252 (S53W20 L=174)   434     41        2 (1239/ 230-1289/ 276)   0.0 W16-W22 S55-S50
     27 1364  212 (S60W37 L=192)  1766    132        3 (1319/ 168-1406/ 255) -20.6 W26-W66 S68-S53
  

    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