Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  712 1785 (N39E50 L=140)  1479    162        2 ( 639/1730- 766/1841) -10.5 E67-E40 N35-N42
      2  735 1632 (N28E36 L=154)  1083    233        1 ( 622/1591- 823/1675)  45.0 E42-E31 N23-N33
      3 1581 1513 (N42W31 L=221)  1727    233        2 (1518/1413-1630/1602) -53.1 W24-W35 N35-N48
      4 1521 1319 (N27W26 L=216)  2231    700        2 (1339/1030-1647/1548) -42.0 W09-W39 N11-N38
      5  424 1489 (N13E53 L=137)   698    117        0 ( 393/1440- 461/1534)  81.9 E54-E51 N09-N16
      6 1100 1434 (N24E05 L=185)   584    262        3 ( 999/1362-1177/1518) -19.7 E13-W01 N21-N27
      7  989 1317 (N14E09 L=181)   222     55        1 ( 970/1289-1009/1345) -45.0 E10-E07 N12-N15
      8 1283 1245 (N16W11 L=201)   243    144        1 (1219/1225-1344/1264)  20.6 W06-W14 N14-N18
      9 1821 1171 (N25W56 L=245)  1310    151        0 (1800/1087-1838/1235) -84.3 W53-W58 N19-N29
     10  269 1032 (S17E53 L=137)  2394    472        3 ( 174/ 879- 354/1136)  48.2 E65-E45 S28-S09
     11  373  976 (S18E42 L=148)   294     93        0 ( 352/ 932- 400/ 999)  78.7 E44-E39 S21-S16
     12  518  897 (S20E29 L=160)   395    142        0 ( 457/ 858- 554/ 950)  49.4 E33-E27 S23-S16
     13 1600  930 (N05W38 L=228)   242     84        1 (1550/ 912-1634/ 949)  18.4 W34-W40 N03-N07
     14 1285  839 (S07W19 L=209)   246     86        0 (1243/ 822-1323/ 859)  36.9 W17-W21 S08-S05
     15 1504  794 (S05W35 L=225)   283     99        1 (1462/ 767-1554/ 812)  26.6 W32-W38 S07-S02
     16 1454  721 (S10W34 L=223)   277     52        1 (1430/ 694-1476/ 749) -56.3 W31-W35 S11-S08
     17 1383  631 (S17W32 L=222)   678    221        2 (1287/ 610-1472/ 674)  35.0 W26-W37 S20-S12
     18  365  615 (S43E44 L=146)  1211    150        3 ( 289/ 596- 439/ 646)  14.0 E55-E35 S45-S40
     19 1523  510 (S21W48 L=238)   310     84        0 (1481/ 485-1562/ 528)  38.7 W45-W50 S23-S18
  

    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