Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  865 1675 (N42E06 L= 61)   464    118        2 ( 817/1637- 916/1697) -35.5 E09-E02 N38-N43
      2  646 1525 (N33E22 L= 44)   843    146        1 ( 590/1481- 707/1562) -12.5 E26-E17 N30-N35
      3 1424 1458 (N22W30 L= 97)   413    131        1 (1359/1425-1483/1481) -20.6 W25-W33 N19-N23
      4 1211 1357 (N17W14 L= 81)   236     72        1 (1178/1320-1254/1391) -59.0 W12-W16 N14-N19
      5  387 1319 (N22E41 L= 26)   538    159        0 ( 346/1278- 430/1372) -49.4 E44-E37 N18-N25
      6 1380 1336 (N14W25 L= 91)   389    147        2 (1306/1322-1447/1351) -12.5 W20-W29 N13-N15
      7 1821 1306 (N10W60 L=127)   474    113        3 (1789/1260-1845/1330) -68.2 W57-W62 N06-N11
      8  924 1248 (N13E04 L= 62)   259     65        1 ( 889/1230- 962/1271)  11.3 E06-E01 N11-N13
      9  240 1020 (N05E54 L= 12)  1255    292        1 ( 176/ 898- 280/1149)  47.3 E62-E49 S01-N12
     10 1801  902 (S14W53 L=120)   413     46        1 (1783/ 868-1815/ 934) -90.0 W51-W54 S16-S12
     11  984  810 (S14E04 L= 62)   376    111        0 ( 958/ 759-1005/ 872)  74.1 E05-E02 S17-S10
     12 1465  635 (S29W27 L= 94)   252     60        0 (1438/ 606-1498/ 666)  45.0 W25-W29 S30-S26
     13  559  327 (S42E47 L= 20)   554    109        0 ( 518/ 308- 608/ 345)  -7.1 E50-E42 S43-S40
  

    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