Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  579 1784 (N32E63 L= 76)  1370    125        0 ( 554/1717- 605/1844) -30.1 E76-E56 N26-N37
      2 1525 1693 (N57W21 L=161)  1219    122        3 (1493/1647-1571/1732) -24.0 W17-W27 N51-N61
      3 1235 1650 (N41E05 L=135)   340     56        0 (1204/1629-1267/1667)   0.0 E07-E01 N39-N41
      4  930 1460 (N19E17 L=122)  1207    263        0 ( 879/1370- 990/1588) -37.6 E24-E11 N14-N25
      5 1625 1568 (N49W32 L=172)   469     38        0 (1600/1549-1653/1585)  23.2 W29-W36 N46-N51
      6  709 1560 (N20E35 L=105)   294     18        0 ( 689/1535- 726/1582) -56.3 E36-E33 N18-N21
      7  377 1528 (N10E60 L= 80)  1146    163        1 ( 322/1482- 435/1580)  58.0 E64-E55 N06-N14
      8  448 1509 (N11E52 L= 88)   584     85        0 ( 429/1465- 464/1556) -56.3 E54-E49 N07-N13
      9 1360 1515 (N35W08 L=147)   384     63        0 (1322/1486-1394/1537)   0.0 W05-W11 N33-N35
     10  392 1473 (N07E55 L= 85)   427     70        1 ( 356/1453- 414/1499)  36.9 E57-E52 N05-N09
     11 1081 1260 (N11E03 L=137)   244     35        0 (1063/1237-1107/1281)  56.3 E04-E01 N09-N12
     12 1690 1153 (N21W39 L=179)   486     83        0 (1638/1133-1730/1168)   7.1 W35-W43 N20-N22
     13 1682  969 (N10W42 L=182)   407     87        0 (1662/ 939-1709/ 997) -33.7 W40-W44 N08-N12
     14  418  823 (S30E36 L=104)   274     65        0 ( 391/ 806- 452/ 846)  -9.5 E38-E32 S31-S29
     15  741  797 (S24E11 L=128)   413    158        0 ( 679/ 778- 808/ 830)  14.0 E15-E07 S25-S21
     16  813  749 (S25E06 L=134)   217    103        0 ( 759/ 732- 857/ 774)  38.7 E08-E03 S26-S22
     17  678  735 (S29E14 L=125)   229     27        0 ( 660/ 711- 695/ 757)  71.6 E15-E12 S30-S27
     18 1659  578 (S11W56 L=195)   391     73        0 (1634/ 546-1678/ 608)  90.0 W53-W57 S13-S09
     19 1449  568 (S18W40 L=179)   449     62        1 (1424/ 536-1471/ 603) -63.4 W37-W42 S19-S15
     20  900  520 (S37W07 L=146)   423     61        0 ( 865/ 502- 938/ 545)  31.0 W04-W09 S38-S35
     21 1494  422 (S25W52 L=192)   624     74        0 (1450/ 397-1535/ 448)   0.0 W47-W57 S25-S23
     22  979  278 (S52W27 L=166)   564     68        0 ( 953/ 250-1008/ 314) -18.4 W22-W31 S53-S48
  

    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