Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  927 1422 (N27W02 L=212)   368    146        0 ( 869/1378- 987/1462) -60.3 W00-W05 N22-N30
      2 1830 1357 (N05W64 L=274)   818     98        0 (1786/1331-1873/1378) -18.4 W60-W70 N02-N06
      3 1381 1323 (N12W27 L=237)   458     92        1 (1336/1291-1426/1354) -38.7 W24-W29 N09-N13
      4  607 1300 (N25E21 L=189)   278     93        0 ( 559/1275- 646/1337)   8.1 E24-E17 N24-N27
      5  607 1185 (N18E22 L=188)  1436    534        2 ( 412/1128- 833/1231) -19.7 E36-E07 N13-N24
      6  173 1083 (N20E61 L=150)  1259    175        1 ( 111/1041- 249/1123) -18.4 E70-E51 N16-N23
      7 1924 1026 (S16W67 L=277)  1672    124        5 (1888/ 967-1957/1083)  74.1 W61-W73 S19-S12
      8  135  986 (N15E67 L=143)  2048    187        4 (  86/ 923- 179/1064) -31.0 E76-E60 N11-N20
      9  856  864 (S04E13 L=198)   431    147        0 ( 841/ 798- 872/ 939)  60.3 E14-E10 S07-N00
     10  141  868 (N08E68 L=142)  1134    151        2 (  81/ 811- 192/ 907) -14.7 E81-E62 N04-N10
     11 1066  826 (S10E01 L=209)   842    355        4 ( 951/ 777-1194/ 902)  -4.1 E07-W07 S13-S05
     12 1686  644 (S35W40 L=250)  1485    353        0 (1534/ 549-1814/ 745)  12.5 W26-W53 S37-S30
     13  911  701 (S15E13 L=197)   270     62        1 ( 880/ 667- 941/ 735)  26.6 E15-E10 S16-S12
     14  531  623 (S12E39 L=171)  1116    284        5 ( 495/ 478- 565/ 733)  63.4 E45-E34 S21-S05
     15  847  627 (S18E18 L=192)   521    215        2 ( 811/ 529- 869/ 696)  74.7 E21-E15 S24-S13
     16  298  529 (S14E64 L=146)  3311    264        8 ( 242/ 431- 350/ 640)  40.9 E83-E55 S20-S07
     17  436  592 (S13E47 L=163)  1322    137        3 ( 360/ 554- 487/ 635)   4.8 E54-E42 S15-S10
     18  643  553 (S19E34 L=176)   317     87        1 ( 626/ 524- 670/ 597)  45.0 E35-E31 S20-S15
     19  449  523 (S17E49 L=161)   316     36        0 ( 429/ 499- 468/ 545) -71.6 E50-E47 S18-S15
     20  453  464 (S20E52 L=158)   530    113        2 ( 414/ 426- 485/ 517) -80.5 E54-E48 S23-S16
     21 1032  368 (S39E15 L=195)  1352    260        4 ( 937/ 299-1125/ 473)  26.6 E23-E05 S42-S33
     22 1380  424 (S43W12 L=222)   306     67        0 (1351/ 409-1414/ 442)  11.3 W09-W15 S44-S41
     23  438  380 (S26E60 L=150)   958    162        2 ( 381/ 359- 516/ 416)   3.2 E68-E50 S27-S23
     24 1190  306 (S48E06 L=204)   402     65        0 (1160/ 286-1225/ 332)  18.4 E08-E02 S49-S46
  

    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