Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  902 1740 (N37E23 L=294)   339     47        1 ( 874/1717- 931/1758)  26.6 E25-E20 N35-N38
      2  757 1701 (N32E31 L=285)   266     45        0 ( 733/1685- 787/1720) -11.3 E33-E28 N31-N33
      3  700 1635 (N26E33 L=284)   300     43        1 ( 677/1614- 731/1659)  33.7 E34-E30 N24-N28
      4  420 1488 (N14E48 L=268)   413     69        1 ( 388/1459- 456/1506)  36.9 E50-E45 N11-N15
      5  229 1392 (N06E64 L=253)  1075    146        5 ( 194/1332- 265/1466)  83.7 E67-E61 N02-N11
      6 1722 1407 (N30W44 L=360)   313     44        0 (1689/1390-1748/1421)   0.0 W40-W46 N28-N31
      7 1352 1345 (N18W15 L=331)   342    179        0 (1272/1329-1432/1365)  10.3 W09-W20 N16-N19
      8 1670 1241 (N18W38 L=355)  2352    341        9 (1551/1132-1751/1345) -22.4 W28-W45 N11-N22
      9  509 1287 (N02E36 L=281)   704    168        2 ( 470/1220- 541/1340) -51.3 E39-E33 S01-N05
     10  385 1280 (N01E45 L=272)   550    145        1 ( 327/1259- 460/1305)  -4.8 E50-E38 N00-N01
     11 1620 1191 (N14W35 L=351)   315     63        2 (1593/1160-1642/1221) -45.0 W32-W36 N11-N15
     12 1448 1159 (N08W23 L=340)   471    119        1 (1401/1110-1485/1202) -26.6 W19-W25 N05-N10
     13 1604 1131 (N10W34 L=350)   318     56        1 (1579/1105-1632/1156)  45.0 W31-W35 N07-N11
     14 1415 1049 (N01W23 L=339)   204     92        0 (1377/1033-1464/1073)  31.0 W20-W25 N00-N03
     15  455  861 (S23E35 L=282)   336    114        0 ( 439/ 806- 478/ 920)  74.1 E36-E33 S26-S19
     16 1845  835 (S02W60 L= 17)   499     58        0 (1813/ 812-1877/ 856)  26.6 W56-W64 S03-N00
     17  601  788 (S26E24 L=293)  1149    278        4 ( 485/ 722- 733/ 838)  21.3 E32-E14 S31-S22
     18 1416  599 (S24W33 L=350)  3575    854        6 (1155/ 515-1743/ 735)  18.9 W13-W57 S29-S13
     19  617  626 (S36E22 L=294)   237     78        1 ( 578/ 615- 664/ 642)   8.1 E25-E18 S37-S34
     20  464  528 (S45E38 L=279)   844    185        0 ( 372/ 499- 548/ 553)  -3.2 E47-E29 S46-S43
     21  756  488 (S44E10 L=306)   944    270        1 ( 639/ 449- 896/ 523)   2.7 E20-W01 S45-S41
     22 1069  416 (S43W16 L=332)   338     94        0 (1034/ 397-1124/ 442)  -7.1 W12-W20 S43-S41
  

    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