Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  720 1826 (N36E47 L=273)   492     66        2 ( 690/1811- 753/1843)   0.0 E50-E44 N34-N38
      2  553 1481 (N09E40 L=280)  2676    533        4 ( 503/1252- 626/1699) -62.6 E46-E30 S03-N24
      3  246 1485 (N05E70 L=250)   770    183        1 ( 213/1464- 272/1505)  -8.7 E78-E65 N04-N06
      4 1806 1451 (N42W49 L=  9)   891    173        2 (1776/1414-1849/1477)   0.0 W44-W54 N39-N44
      5 1671 1379 (N31W34 L=354)   415     85        1 (1629/1355-1706/1399)   8.1 W30-W37 N29-N32
      6 1355 1285 (N16W13 L=334)   488    165        0 (1311/1208-1388/1372) -45.0 W08-W16 N11-N19
      7  190 1231 (S11E64 L=257)  1231    255        4 ( 144/1177- 224/1293)  63.4 E69-E61 S14-S06
      8  261 1164 (S14E54 L=267)  1118    270        1 ( 183/1139- 351/1182)  14.0 E62-E46 S15-S11
      9 1399 1077 (N05W20 L=341)   299     64        1 (1362/1051-1429/1097)  14.0 W17-W21 N03-N06
     10 1749  974 (N09W47 L=  7)   477     77        0 (1731/ 931-1769/1023) -45.0 W44-W49 N06-N11
     11  769  911 (S19E12 L=308)   339    102        0 ( 720/ 889- 838/ 927)  29.7 E15-E08 S21-S16
     12 1313  840 (S10W21 L=342)   278    104        0 (1268/ 793-1359/ 892) -23.2 W17-W24 S12-S08
     13 1467  683 (S15W35 L=356)   611    145        0 (1393/ 640-1532/ 740)  60.9 W32-W38 S19-S09
     14 1706  553 (S14W60 L= 20)   806    135        2 (1650/ 500-1745/ 614)  71.6 W57-W63 S18-S09
     15 1590  423 (S25W57 L= 18)  1646    228        5 (1534/ 390-1648/ 471)  40.6 W51-W62 S27-S21
  

    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