Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  495 1590 (N14E52 L= 98)  1390    256        0 ( 469/1493- 543/1682) -53.1 E56-E45 N08-N20
      2  362 1336 (S04E51 L= 98)   499     57        0 ( 341/1298- 385/1373)  90.0 E52-E49 S05-N00
      3  933 1290 (N07E12 L=137)   340     70        0 ( 900/1256- 973/1314)  53.1 E13-E10 N04-N09
      4 1315 1212 (N13W11 L=161)   294    123        0 (1269/1150-1351/1270) -35.5 W07-W14 N10-N15
      5 1126 1112 (N03W03 L=153)   184     67        0 (1091/1097-1160/1132)   0.0 W01-W05 N01-N03
      6  311 1013 (S23E46 L=103)   598    164        0 ( 257/ 962- 364/1058)  45.0 E50-E42 S27-S19
      7  817  774 (S24E05 L=144)  1280    381        1 ( 656/ 736-1019/ 839)  36.4 E15-W04 S29-S15
      8 1303  683 (S16W26 L=175)   521    194        0 (1207/ 640-1404/ 727)  48.0 W21-W30 S20-S10
      9 1354  596 (S19W33 L=182)   563    238        1 (1247/ 580-1465/ 614)  26.6 W25-W39 S22-S14
     10 1704  493 (S13W65 L=215)  2240    320        6 (1630/ 420-1750/ 571)  84.8 W60-W71 S19-S08
     11 1602  483 (S17W56 L=205)   356     69        1 (1581/ 457-1617/ 505) -26.6 W53-W58 S18-S16
     12 1320  471 (S27W36 L=186)   376    150        1 (1271/ 420-1367/ 496)  -5.7 W32-W42 S28-S26
     13 1543  424 (S22W55 L=204)   364     62        1 (1513/ 399-1569/ 452)  63.4 W53-W56 S24-S20
     14 1021  370 (S43W24 L=173)   410     95        0 ( 994/ 345-1069/ 403)   8.1 W20-W27 S45-S41
     15 1217  261 (S43W45 L=194)   391     55        0 (1186/ 246-1251/ 275)  36.9 W41-W46 S44-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