Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  859 1875 (N73W29 L= 74)   644     85        0 ( 839/1838- 880/1908)  19.8 W21-W46 N67-N76
      2 1449 1642 (N32W51 L= 95)   364     92        0 (1433/1602-1480/1671)  18.4 W46-W55 N30-N33
      3  947 1370 (N29W03 L= 48)   336    120        0 ( 925/1314- 981/1424)  50.2 W01-W06 N25-N32
      4 1314 1349 (N19W26 L= 70)   213     97        0 (1270/1327-1359/1368)  -9.5 W22-W28 N18-N19
      5  532 1290 (N33E28 L= 16)   246     74        0 ( 508/1258- 551/1319) -59.0 E30-E26 N30-N35
      6 1728 1184 (S01W50 L= 94)   802    140        3 (1681/1123-1776/1240) -66.8 W46-W52 S05-N02
      7 1607 1104 (S02W38 L= 82)   335     97        0 (1562/1073-1646/1133) -38.7 W35-W40 S04-N00
      8  670 1060 (N16E21 L= 24)   220     83        0 ( 641/1021- 696/1093)  31.0 E23-E18 N14-N17
      9  423 1013 (N18E40 L=  5)   261    109        0 ( 385/ 974- 448/1056) -56.3 E42-E37 N14-N20
     10 1409  771 (S16W18 L= 62)   333    135        1 (1359/ 733-1473/ 795)   6.3 W13-W22 S17-S15
     11 1337  588 (S26W10 L= 54)   327     63        0 (1318/ 558-1352/ 632)  78.7 W08-W11 S28-S23
     12  497  518 (S14E47 L=357)   326     72        0 ( 474/ 480- 514/ 552)  68.2 E49-E46 S16-S11
     13  714  378 (S27E38 L=  7)  1292    236        3 ( 615/ 329- 835/ 433)   5.4 E48-E26 S29-S24
     14  435  421 (S19E60 L=345)   495     82        2 ( 393/ 407- 478/ 431) -12.5 E64-E55 S20-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