Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1402 1348 (N20W30 L=132)   624    233        0 (1347/1294-1471/1382) -35.5 W26-W34 N15-N22
      2  477 1366 (N35E36 L= 65)   259     44        0 ( 450/1349- 507/1381)   0.0 E38-E33 N33-N35
      3 1785 1077 (S04W54 L=156)   347     58        1 (1766/1049-1804/1112)  45.0 W51-W56 S05-S02
      4  138 1055 (N17E73 L= 28)   719     46        1 ( 118/1032- 165/1080)  12.5 E77-E68 N15-N18
      5 1734  933 (S12W47 L=149)   304     80        1 (1711/ 898-1764/ 962)  26.6 W44-W50 S13-S10
      6 1662  917 (S11W40 L=142)   434     71        1 (1630/ 899-1695/ 938) -18.4 W37-W43 S12-S09
      7  141  904 (N07E74 L= 28)   624     41        0 ( 114/ 890- 170/ 920)   0.0 E81-E68 N06-N08
      8 1128  653 (S18W01 L=102)   831    280        1 (1045/ 549-1210/ 739)  37.6 E06-W07 S23-S13
      9 1437  616 (S26W21 L=123)   564    145        0 (1372/ 566-1481/ 668)  32.0 W16-W24 S28-S22
     10 1702  641 (S30W45 L=147)   469     76        1 (1663/ 623-1730/ 664)   8.1 W40-W47 S32-S29
     11  770  502 (S23E25 L= 76)   742    256        1 ( 678/ 440- 855/ 582)  25.2 E34-E17 S26-S18
     12  373  546 (S16E56 L= 45)   392     67        0 ( 360/ 512- 389/ 580)  39.8 E59-E52 S18-S13
     13 1365  440 (S38W15 L=117)   636    193        0 (1278/ 398-1434/ 479)  13.0 W08-W21 S39-S35
     14  872  417 (S31E21 L= 80)   900    207        1 ( 786/ 369- 968/ 468)  14.0 E29-E13 S33-S27
     15  473  406 (S27E55 L= 46)   899     74        2 ( 448/ 366- 506/ 445)  63.4 E59-E51 S30-S23
  

    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