Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1593 1664 (N27W67 L= 20)  1744    137        4 (1529/1604-1647/1707) -76.0 W62-W72 N23-N31
      2 1481 1507 (N23W44 L=358)   484    131        1 (1463/1436-1502/1559)  36.9 W40-W48 N18-N25
      3 1332 1523 (N28W35 L=348)   246     84        0 (1300/1499-1365/1543) -53.1 W32-W35 N25-N29
      4 1612 1497 (N18W54 L=  8)   973    182        1 (1533/1449-1681/1532) -45.0 W49-W58 N13-N22
      5  816 1441 (N37E03 L=311)   260     30        1 ( 795/1413- 838/1465)  56.3 E04-E01 N35-N38
      6 1287 1346 (N19W24 L=338)   374    105        3 (1238/1321-1337/1380) -26.6 W21-W27 N16-N21
      7  985 1226 (N20W02 L=316)   326    135        2 ( 965/1160-1005/1287)  54.5 W00-W05 N15-N22
      8 1733 1154 (S04W49 L=  3)   388     91        1 (1713/1110-1762/1198)  45.0 W46-W52 S05-S01
      9  184 1077 (N26E65 L=249)   557     58        1 ( 166/1048- 211/1105)  56.3 E67-E60 N24-N27
     10  280 1032 (N22E53 L=261)  2236    485        5 ( 155/ 940- 477/1102)   0.0 E69-E34 N17-N26
     11 1538  987 (S08W30 L=344)   288     48        1 (1514/ 959-1558/1011)  56.3 W28-W31 S09-S06
     12 1825  842 (S26W53 L=  7)  1560    182        2 (1764/ 783-1901/ 895)   6.3 W46-W65 S28-S23
     13 1685  852 (S20W39 L=352)   646    196        0 (1587/ 821-1743/ 886) -15.9 W30-W44 S21-S16
     14  481  820 (N06E39 L=275)   286    118        1 ( 439/ 778- 511/ 872) -66.8 E40-E37 N03-N10
     15 1033  797 (S06E05 L=309)   393    159        1 ( 998/ 722-1067/ 842)  39.8 E08-E02 S09-S02
     16  474  700 (S01E42 L=271)   369    118        0 ( 458/ 641- 489/ 757)  50.2 E44-E39 S04-N02
     17 1112  534 (S24E07 L=307)   722    241        2 (1043/ 443-1172/ 629)  36.9 E13-W00 S29-S18
     18 1371  447 (S38W08 L=322)   334     45        1 (1356/ 417-1384/ 480)  68.2 W06-W09 S40-S35
     19  971  242 (S43E30 L=284)  3172    336        6 ( 858/ 125-1043/ 369)  24.9 E58-E17 S52-S33
  

    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