Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1099 1617 (N31E06 L=284)   514    122        0 (1062/1562-1137/1658)  76.0 E07-E04 N26-N34
      2  463 1553 (N18E48 L=242)  1201    143        2 ( 390/1526- 543/1576)  -4.1 E54-E40 N15-N19
      3 1042 1454 (N19E06 L=284)   266     57        0 (1027/1423-1061/1493) -53.1 E07-E04 N17-N21
      4 1689 1224 (N17W39 L=329)   477    137        0 (1619/1206-1749/1244)  10.3 W33-W44 N16-N18
      5  802 1202 (N00E16 L=274)   409    170        0 ( 710/1172- 865/1237)  -5.7 E21-E11 N00-N01
      6 1911 1040 (N12W64 L=354)  2821    271       12 (1867/ 940-1950/1159)  81.9 W58-W71 N05-N19
      7 1744 1067 (N09W46 L=336)   776    179        1 (1701/1004-1781/1144)  68.2 W42-W48 N04-N14
      8 1827 1086 (N12W53 L=343)   657    104        2 (1802/1041-1860/1129)  50.2 W51-W56 N09-N15
      9 1658 1071 (N08W39 L=329)   262     60        1 (1640/1033-1674/1101) -76.0 W37-W39 N05-N09
     10  832  807 (S22E08 L=282)   219     77        0 ( 803/ 777- 860/ 844)  68.2 E09-E06 S24-S19
     11  993  700 (S26W04 L=294)  1265    385        2 ( 835/ 652-1188/ 743)  21.8 E05-W16 S31-S21
     12 1602  491 (S26W53 L=343)  3621    450        5 (1484/ 409-1750/ 607)  -1.4 W40-W80 S29-S20
     13  895  550 (S37W00 L=290)   445    152        1 ( 827/ 524- 965/ 590)  -5.7 E05-W05 S38-S35
     14  840  443 (S45E02 L=288)  1345    331        1 ( 688/ 400- 992/ 506)  -2.2 E15-W11 S47-S42
     15 1196  364 (S43W29 L=319)  1002    264        0 (1089/ 321-1323/ 414)  -2.5 W18-W41 S45-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