Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1529 1691 (N27W62 L=260)   740     79        2 (1496/1660-1561/1722)  59.0 W58-W65 N24-N29
      2 1293 1623 (N31W38 L=236)  1540    392        1 (1152/1575-1465/1677) -43.2 W30-W48 N23-N38
      3  977 1595 (N40W16 L=214)   420    103        0 ( 927/1572-1021/1616)  -8.1 W12-W19 N38-N41
      4 1454 1449 (N17W39 L=237)   804    302        2 (1300/1423-1575/1475) -22.8 W28-W47 N12-N21
      5 1642 1370 (N07W49 L=247)   350     55        1 (1620/1340-1662/1397) -90.0 W47-W50 N04-N08
      6 1065 1336 (N22W11 L=209)   729    237        2 ( 974/1308-1190/1376) -15.9 W05-W19 N20-N24
      7 1538 1301 (N06W38 L=236)   262     60        0 (1502/1280-1572/1319) -45.0 W36-W40 N04-N08
      8 1131 1255 (N16W12 L=210)   484    202        0 (1050/1221-1223/1288)  -9.5 W06-W18 N14-N17
      9  560 1207 (N28E24 L=174)   508    210        1 ( 476/1140- 636/1268) -50.7 E29-E19 N22-N33
     10  509  993 (N17E32 L=166)   773    279        3 ( 401/ 962- 651/1019) -22.4 E40-E22 N11-N19
     11  345  941 (N17E46 L=152)   342     59        0 ( 320/ 912- 363/ 962) -56.3 E48-E44 N15-N18
     12 1753  911 (S22W44 L=242)   358     71        0 (1715/ 898-1795/ 923) -20.6 W40-W48 S23-S20
     13  321  809 (N10E51 L=146)   339     46        0 ( 306/ 781- 335/ 836)  56.3 E53-E49 N08-N11
     14 1466  791 (S19W20 L=217)   266     90        0 (1445/ 748-1487/ 830)  45.0 W17-W21 S21-S17
     15  336  745 (N06E52 L=146)   514     95        1 ( 297/ 725- 385/ 768) -23.2 E55-E48 N04-N07
     16 1104  656 (S17E05 L=192)   495    178        2 (1067/ 614-1143/ 747) -90.0 E07-E03 S20-S10
     17 1364  700 (S22W11 L=209)   268     96        0 (1344/ 655-1382/ 747)  45.0 W08-W12 S23-S18
     18  477  317 (S23E67 L=131)   983    114        1 ( 444/ 274- 504/ 375)  53.1 E72-E62 S26-S18
     19 1335  294 (S51E03 L=195)   761     99        0 (1294/ 268-1383/ 330)  14.0 E07-W01 S53-S48
  

    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