Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1453 1696 (N31W51 L=295)   431     61        2 (1413/1672-1481/1715) -53.1 W48-W53 N29-N33
      2 1203 1555 (N29W25 L=269)   267     59        0 (1181/1528-1220/1594)  45.0 W23-W27 N27-N31
      3  554 1564 (N47E22 L=222)   330     44        1 ( 526/1545- 584/1581) -18.4 E24-E18 N46-N48
      4 1439 1553 (N23W41 L=284)   364     82        2 (1405/1531-1480/1579) -53.1 W38-W42 N21-N25
      5  416 1534 (N49E37 L=206)   556     81        1 ( 388/1491- 442/1569)  80.5 E40-E33 N45-N51
      6 1346 1534 (N25W34 L=277)   345     91        2 (1315/1487-1370/1569)  51.3 W31-W35 N21-N26
      7  939 1477 (N31W06 L=249)  1168    334        3 ( 776/1450-1098/1497) -15.9 E05-W16 N27-N34
      8 1443 1435 (N17W36 L=279)   485    191        0 (1370/1393-1508/1489)   8.7 W29-W42 N15-N18
      9 1238 1209 (N09W16 L=260)  1178    319        3 (1107/1171-1385/1254) -13.2 W07-W24 N04-N11
     10  360 1017 (N16E42 L=201)   936    219        4 ( 274/ 943- 443/1064) -34.7 E49-E36 N10-N19
     11 1105  812 (S10E00 L=243)   253     70        2 (1086/ 776-1125/ 854)  63.4 E01-W01 S12-S08
     12 1682  665 (S34W37 L=280)   633    110        0 (1625/ 638-1730/ 701)   0.0 W31-W42 S35-S32
     13  670  615 (S12E31 L=213)   269     93        0 ( 619/ 602- 710/ 637)   8.1 E34-E27 S13-S11
     14  552  587 (S12E39 L=204)   251     64        0 ( 532/ 554- 575/ 621)  63.4 E40-E37 S13-S09
     15  664  498 (S19E35 L=208)   311     42        1 ( 643/ 466- 684/ 524)  63.4 E36-E33 S21-S17
     16  358  473 (S15E62 L=182)   594    119        2 ( 307/ 445- 406/ 504) -18.4 E66-E56 S17-S12
     17  689  443 (S23E36 L=207)   267     97        0 ( 645/ 429- 723/ 476)   0.0 E39-E32 S24-S21
     18  539  332 (S27E55 L=188)  1559    174        3 ( 468/ 288- 626/ 366)   2.6 E67-E45 S29-S24
     19  996  248 (S45E27 L=217)  1489    202        3 ( 909/ 201-1082/ 308)   0.0 E35-E17 S47-S41
  

    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