Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  689 1829 (N34E56 L=299)   605     58        0 ( 669/1797- 709/1860) -45.0 E59-E51 N31-N37
      2 1141 1690 (N36E13 L=342)  1729    375        3 (1001/1561-1238/1800) -21.0 E28-E02 N30-N41
      3  559 1780 (N28E62 L=293)   627     81        1 ( 519/1762- 595/1792)  20.6 E67-E57 N26-N29
      4  790 1602 (N20E31 L=324)   656    168        1 ( 720/1563- 874/1624)  36.9 E33-E25 N16-N23
      5  589 1475 (N08E39 L=316)   389     99        0 ( 576/1419- 605/1522) -39.8 E41-E35 N05-N11
      6  293 1477 (N03E65 L=290)   749     69        3 ( 262/1451- 316/1507)  45.0 E67-E61 N01-N05
      7  444 1432 (N03E47 L=307)   612    164        0 ( 419/1355- 467/1499) -49.4 E50-E42 S01-N07
      8 1562 1407 (N31W23 L= 18)  1236    231        2 (1476/1330-1629/1466)  -8.7 W16-W29 N26-N33
      9 1220 1268 (N11W05 L=360)   435    130        0 (1198/1209-1251/1322)  90.0 W03-W05 N07-N15
     10 1439 1180 (N13W19 L= 14)   540    261        0 (1372/1080-1514/1277) -28.3 W13-W26 N08-N16
     11  325 1216 (S12E50 L=304)   536    144        0 ( 266/1198- 399/1233)  15.3 E56-E43 S13-S10
     12  437 1030 (S21E37 L=318)   229     64        0 ( 401/1020- 474/1042)  21.8 E39-E34 S21-S19
     13  438  789 (S35E34 L=321)   510    126        0 ( 377/ 764- 495/ 824)  31.0 E39-E29 S37-S31
     14 1578  630 (S13W46 L= 41)   292    107        0 (1529/ 611-1622/ 654)  50.2 W43-W48 S15-S09
     15 1646  606 (S12W53 L= 48)   815    186        0 (1564/ 557-1716/ 648)  51.3 W48-W57 S16-S06
     16 1189  561 (S28W24 L= 19)   784    169        2 (1114/ 522-1270/ 609)  56.3 W20-W27 S32-S23
     17 1746  516 (S12W70 L= 64)  3047    217       10 (1677/ 447-1805/ 582)  90.0 W62-W80 S17-S06
     18 1558  454 (S22W55 L= 50)  1118    288        3 (1456/ 397-1644/ 535)  65.2 W51-W60 S28-S15
     19 1654  373 (S22W74 L= 69)  2314    156        2 (1584/ 341-1704/ 428)  25.0 W66-W85 S26-S19
     20 1022  394 (S44W23 L= 17)   255     60        0 ( 990/ 375-1055/ 407)   9.5 W19-W26 S44-S42
  

    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