Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1353 1634 (N40W02 L=341)   943    231        0 (1316/1517-1381/1705) -53.1 E02-W07 N32-N45
      2  919 1648 (N26E26 L=313)   563    123        0 ( 891/1601- 949/1698) -66.8 E27-E23 N23-N30
      3 1255 1474 (N25W01 L=339)   301    139        0 (1189/1428-1290/1497)  -9.5 E03-W03 N23-N26
      4 1480 1338 (N24W18 L=357)   292    108        0 (1434/1302-1521/1376)  -8.1 W14-W21 N23-N24
      5 1669 1288 (N28W33 L= 12)   374     99        0 (1653/1239-1685/1341) -51.3 W30-W34 N24-N30
      6  252 1246 (S12E58 L=281)  1407    197        2 ( 210/1157- 286/1329) -45.0 E65-E53 S17-S07
      7 1743 1243 (N28W40 L= 19)   360     86        0 (1727/1189-1755/1284) -68.2 W38-W41 N24-N29
      8  315 1201 (S14E50 L=289)   613    109        1 ( 292/1147- 333/1257) -56.3 E52-E47 S16-S10
      9  462 1187 (S11E38 L=301)   316     86        0 ( 430/1152- 487/1224) -26.6 E41-E35 S12-S09
     10 1429 1172 (N13W19 L=357)   463     85        1 (1389/1150-1468/1206)   0.0 W15-W21 N10-N14
     11  418 1078 (S18E39 L=300)   561     90        1 ( 370/1054- 452/1109)  33.7 E42-E35 S20-S16
     12 1324 1088 (N05W15 L=353)   382    101        1 (1260/1074-1375/1106)  26.6 W10-W17 N03-N07
     13  917  918 (S15E03 L=336)   261     40        2 ( 891/ 891- 942/ 944) -45.0 E04-E01 S16-S13
     14  811  769 (S26E05 L=333)   423    109        1 ( 789/ 714- 828/ 822) -63.4 E07-E02 S29-S23
     15 1755  783 (N03W53 L= 32)   471     62        1 (1726/ 762-1789/ 811)  -9.5 W50-W56 N01-N03
     16  260  665 (S48E55 L=284)   619     63        0 ( 224/ 638- 300/ 688)  -4.8 E61-E48 S49-S46
     17  348  654 (S46E42 L=297)   295     55        0 ( 333/ 635- 373/ 682) -26.6 E44-E38 S47-S44
     18 1005  618 (S29W11 L=350)   307    131        0 ( 952/ 582-1059/ 649)   0.0 W07-W15 S30-S28
     19 1310  527 (S25W33 L= 12)   232     51        0 (1290/ 497-1330/ 555) -36.9 W30-W35 S26-S23
     20 1574  488 (S18W53 L= 32)   609    146        0 (1527/ 426-1607/ 545) -77.5 W51-W55 S23-S14
     21 1210  443 (S33W32 L= 11)   316     73        0 (1167/ 428-1252/ 462)  18.4 W28-W34 S33-S31
  

    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