Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  730 1701 (N32E34 L=285)   314     34        1 ( 705/1681- 757/1718) -11.3 E36-E31 N30-N33
      2  664 1636 (N26E35 L=283)   404     51        1 ( 642/1605- 683/1669) -45.0 E37-E33 N24-N28
      3  388 1483 (N13E51 L=268)   469     78        0 ( 350/1448- 424/1509)  31.0 E53-E48 N10-N15
      4  403 1437 (N10E48 L=271)   274     67        1 ( 383/1408- 426/1472)  90.0 E48-E46 N08-N12
      5  210 1394 (N07E67 L=252)  1515    143        4 ( 175/1329- 247/1461)  90.0 E71-E62 N02-N11
      6 1301 1354 (N17W12 L=330)   543    180        1 (1221/1337-1402/1375)   9.5 W06-W18 N15-N19
      7 1646 1234 (N17W36 L=355)  3014    465       11 (1507/1070-1739/1368) -36.4 W25-W45 N08-N22
      8  468 1301 (N03E39 L=280)   619     93        1 ( 431/1259- 495/1334) -38.7 E42-E36 N00-N04
      9  346 1287 (N01E48 L=270)   421    110        1 ( 306/1261- 397/1319) -12.5 E52-E43 N00-N02
     10 1589 1202 (N14W32 L=351)   332     59        1 (1561/1178-1610/1230) -71.6 W30-W34 N12-N15
     11 1412 1170 (N08W21 L=339)   542    136        1 (1368/1121-1460/1222) -45.0 W17-W24 N05-N10
     12 1651 1032 (N05W39 L=357)   236     72        0 (1612/1019-1690/1045)  21.8 W36-W41 N03-N06
     13  434  889 (S22E37 L=282)   249     72        0 ( 420/ 851- 452/ 924)  68.2 E37-E35 S24-S19
     14 1396  880 (S09W25 L=343)   374    157        0 (1340/ 841-1450/ 899)  15.9 W21-W28 S11-S07
     15 1826  843 (S02W58 L= 17)   472     46        0 (1791/ 825-1861/ 863)  23.2 W54-W62 S03-N00
     16  608  801 (S25E23 L=295)  1325    397        2 ( 461/ 732- 803/ 847)  14.0 E34-E10 S30-S21
     17 1367  606 (S25W30 L=348)  3373    815        4 (1126/ 524-1715/ 747)   3.5 W11-W60 S29-S19
     18 1766  678 (S12W59 L= 17)   371     45        1 (1741/ 651-1786/ 704) -56.3 W55-W60 S13-S10
     19  480  527 (S45E36 L=282)   505    110        1 ( 431/ 500- 533/ 548)   0.0 E41-E30 S46-S43
     20  668  506 (S44E18 L=301)   554    109        2 ( 614/ 482- 717/ 532)   0.0 E22-E13 S45-S42
     21  842  480 (S43E03 L=315)   268     71        1 ( 810/ 459- 880/ 501) -21.8 E05-W00 S43-S41
     22 1057  424 (S43W15 L=333)   349     97        0 (1021/ 404-1115/ 451)  -7.1 W11-W19 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